Como puedo IMPORTAr directamente a un userform DATOS de otro libro ? Agradecido de antemano

Hay muchas maneras de escribir una instrucción que se refiera a libro, hoja y celda.

Esto mi ejemplo muestro el contenido del libro B al momento de abrir el UF y desde un botón comando lo devuelvo modificado.

Private Sub UserForm_Initialize()
'muestra el dato del libro2, Hoja 1 y celda C7
TextBox1 = Workbooks("LibroB.xlsm").Sheets(1).[C7]
End Sub
Private Sub CommandButton1_Click()
'devuelve al libro2 el valor del textbox ya modificado
Workbooks("LibroB.xlsm").Sheets(1).[C7] = TextBox1
End Sub

Estoy asumiendo que el libro ya se encuentra abierto.

Otro modo es declarando una variable para el libro/Hoja. Solo debes recordar de declararla al inicio del UF para poder utilizarla en eventos diferentes:

Dim libroHoja
Private Sub UserForm_Initialize()
'se declara el 2do libro y su hoja
Set libroHoja = Workbooks("LibroB.xlsm").Sheets("Hoja1")
'muestra el dato del libro2, Hoja 1 y celda C7
TextBox1 = libroHoja.[C7]
End Sub
Private Sub CommandButton1_Click()
'devuelve al libro2 el valor del textbox ya modificado
libroHoja.[C7] = TextBox1
End Sub

Sdos y no olvides valorar la respuesta si resuelve tu consulta. Sino comenta y la seguimos tratando.

Este código que estás viendo es VBA (Visual Basic for Applications) . Para extraer información de un libro cerrado, tendrás que utilizar código VB (Visual Basic), puedes introducir las sentencias directamente en VBA, este es un ejemplo:

Private Sub TextBox1_Change()
    bd = ThisWorkbook.Path & "\base.xlsx"
    'Set conexion = New ADODB.Connection
    'Set datos = New ADODB.Recordset
    Set conexion = CreateObject("adodb.connection")
    Set datos = CreateObject("adodb.recordset")
    conexion.Open "Provider=Microsoft.ACE.OLEDB.12.0; Data Source=" & bd & "; Extended Properties=""Excel 12.0; HDR=YES"";"
    Sql = "SELECT * FROM [clientes$]" & " where [edad] " & Me.TextBox1.Text '& "%'"
    datos.Open Sql, conexion
    LSTCLIENTES.Clear
    Do While Not datos.EOF
        Me.LSTCLIENTES.AddItem (datos.Fields.Item("nombres").Value)
        Me.LSTCLIENTES.List(LSTCLIENTES.ListCount - 1, 1) = datos.Fields.Item("edad")
        datos.MoveNext
    Loop
    conexion.Close
    Set datos = Nothing
    Set conexion = Nothing
End Sub

El código anterior leer información del archivo base.xlsx, dicho libro está cerrado. No tengo código para guardar datos en un libro cerrado; tendrás que buscar en la red.

Como puedes ver, es más complicado.

Otra opción, es abrir el libro durante la ejecución, poner el dato, guardar el libro y volver a cerrar el libro. Eso sucede de forma "invisible" para el usuario.

Sal u dos

Apliando las respuestas tambien podrias usar de la siguinete manera

Private Sub CommandButton2_Click()

Ruta = "C:\Users\usuarioX\Desktop\"
nombre = "libro b.xlsx"

Workbooks.Open Filename:=Ruta & nombre
Sheets("BD").Select
    Set h = Sheets("results")
    Set b = h.Columns("A").Find(TextBox1)
        If Not b Is Nothing Then
        b.Select
            If b = TextBox1.Value Then
            TextBox2 = h.Cells(b.Row, "b")
            End If
        End If
Windows(nombre). Activate
ActiveWindow. Close

End Sub

Donde

Ruta es donde estas el archive guardado

Nombre es el nombre del libro

Estos es el caso de que busque algo en especifico y quieras cargar la informacion que tienes en la columna B