hola, tengo una consulta similar a esta otra, tengo un userform, y quisiera que al seleccionar un dato en mi combobox, automaticamente me ponga datos de una base de datos en dos textbox, no se si me explico bien.

tengo escrito este codigo, pero solo me despliega los del combobox, no me termina de llenar los textbox

Private Sub ComboBox1_Change()
On Error Resume Next
  TextBox1.Value = Application.WorksheetFunction.VLookup(Trim(ComboBox1.Value), Range("A:B"), 5, 0)
End Sub

Private Sub TextBox11_Change()
  TextBox11 = Val(Hoja2.Range("a2:A65536").Find("").Offset(-1, 0)) + 1
End Sub



Private Sub UserForm_Initialize()
Dim i As Long, x As Long
TextBox11 = Val(Hoja2.Range("a2:A65536").Find("").Offset(-1, 0)) + 1
   
    i = Hoja5.Range("A" & Rows.Count).End(xlUp).Row
    For x = 2 To i
        If Hoja5.Range("A" & x) <> "" Then
            With ComboBox1
                .AddItem Hoja5.Range("A" & x).Value
                .Column(1, .ListCount - 1) = x
            End With
        End If
    Next x
End Sub

Tengo tres hojas, una que es machote, que es en la que trabajo el userform, otra que se llama datos, y otra de clientes, donde tengo mi base de datos, en la columna a esta el nit, que se carga en el combobox, en la b nombre del cliente, que quiero que aparezca en el textbox1, y en la columna c el telefono que se cargue en el textbox3

de ante mano muchas gracias