Buscar dentro de listbox un dato

Prueba con esta opción, cada vez que pongas una letra en el texbox, busca el dato en el listbox:

Private Sub TextBox1_Change()
'Por.Dante Amor
    If TextBox1 = "" Then
        If ListBox1.ListIndex > -1 Then
            ListBox1.Selected(ListBox1.ListIndex) = False
            Exit Sub
        End If
    End If
    For i = 0 To ListBox1.ListCount - 1
        If ListBox1.List(i, 2) Like "*" & TextBox1 & "*" Then
            ListBox1.Selected(i) = True
            Exit For
        End If
    Next
End Sub

Saludos.Dante Amor

Si es lo que necesitas.

Te dejo la macro que solicitas e imagen de resultados:

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
'x Elsamatilde
Dim filx As Integer
If TextBox1 = "" Then Exit Sub
For i = 0 To ListBox1.ListCount - 1

'recorre la col 3 del listbox buscando el dato del txt
If InStr(1, UCase(ListBox1.List(i, 2)), UCase(TextBox1)) > 0 Then
filx = i
Exit For
End If
Next i

'selecciona el elemento del listbox donde se encuentre el texto 

ListBox1.ListIndex = i
End Sub

Si esto responde a tu consulta no olvides valorarla.