¿Buscar datos de un listbox a través de un textbox?

Soy nuevo en el tema de programación en vba, resulta que tengo una macro que lo que hace es que me trae los datos a un listbox y cuando los selecciono dentro del listbox, me los pasa a diferentes textbox (adjunto fotos), lo que busco es que cuando vaya escribiendo en el textbox2 "Nombre" o en el textbox3 "cedula", me vaya filtrando a medida que voy escribiendo la búsqueda en el textbox, y al seleccionarlo me traiga los datos de nuevo a los textbox, agradezco cualquier ayuda, adjunto código del userform. El privatesub de textbox2 change() era el código que estaba usando pero me manda error a la hora de pasar los datos al userform.

Espero sea claro y agradezco cualquier ayuda

Private Sub ListBox1_Click()
fila = ListBox1.ListIndex + 2

With Hoja5.Range(UserForm6.ListBox1.RowSource)

TextBox1.Text = .Offset(ListBox1.ListIndex, 0).Resize(1, 1).Value
TextBox2.Text = .Offset(ListBox1.ListIndex, 1).Resize(1, 1).Value
TextBox3.Text = .Offset(ListBox1.ListIndex, 2).Resize(1, 1).Value
TextBox4.Text = .Offset(ListBox1.ListIndex, 3).Resize(1, 1).Value
TextBox5.Text = .Offset(ListBox1.ListIndex, 4).Resize(1, 1).Value
TextBox6.Text = .Offset(ListBox1.ListIndex, 5).Resize(1, 1).Value
TextBox7.Text = .Offset(ListBox1.ListIndex, 6).Resize(1, 1).Value
TextBox8.Text = .Offset(ListBox1.ListIndex, 7).Resize(1, 1).Value
TextBox9.Text = .Offset(ListBox1.ListIndex, 8).Resize(1, 1).Value
TextBox10.Text = .Offset(ListBox1.ListIndex, 9).Resize(1, 1).Value
ComboBox1.Text = .Offset(ListBox1.ListIndex, 10).Resize(1, 1).Value
TextBox11.Text = .Offset(ListBox1.ListIndex, 11).Resize(1, 1).Value
TextBox12.Text = .Offset(ListBox1.ListIndex, 12).Resize(1, 1).Value
End With

End Sub

Private Sub TextBox2_Change()
Set b = Sheets("Empleados")
uf = b.Range("A" & Rows.Count).End(xlUp).Row

b.AutoFilterMode = False
Me.ListBox1 = Clear
Me.ListBox1.RowSource = Clear
For i = 2 To uf
strg = b.Cells(i, 2).Value
If UCase(strg) Like UCase(TextBox2.Value) & "*" Then
Me.ListBox1.AddItem b.Cells(i, 1)
Me.ListBox1.List(Me.ListBox1.ListCount - 1, 1) = b.Cells(i, 2)
Me.ListBox1.List(Me.ListBox1.ListCount - 1, 2) = b.Cells(i, 3)
End If
Next i
End Sub

Private Sub UserForm_Activate()

Me.TextBox12.Text = Date

With Me
.ListBox1.ColumnCount = 13
.ListBox1.ColumnWidths = "30 pt; 90 pt;60 pt;60 pt; 60pt; 60pt; 60pt; 60pt; 60pt; 60pt; 60pt; 60pt; 60pt"
.ListBox1.ColumnHeads = True
.ListBox1.RowSource = "TEam1"
End With
End Sub