Busqueda de datos en vba

[spoilt193]

Gracias por tu pronta Resp, pero Realmente un simple filtrado no seria la solucion, porque me estan pidiendo que haga formularios para mostrar la informacion requerida. En este formulario debo hacer la busqueda por una u otra celda. Te lo explico de otra forma: Necesito que al buscar por un número de telf me de toda la información de la persona (Nombre, ID, Estado, Municipio, Dirección, Personal asignado bajo su mando), Pero si la busco por el estado, necesito que me de todas las personas y numeros de telf que haya en el estado que deseo buscar. Yo tengo un código pero solo me hace la busqueda por la información que yo coloque en la primera celda. Ejm: tengo en la primera celda el nùmero de Tlfno, entonces me hace la busqueda sólo por número de Tlfno, y en realidad lo que busco es que me haga la búsqueda por cuaquier dato que yo le introduzca. A continuación te muestro el Código:

Private Sub TextBox1_Change()
Dim i As Integer, Num As Boolean
Num = True
For i = Me.ListBox1.ListCount - 1 To 0 Step -1
If Not IsEmpty(Trim(Me.TextBox1)) Then
If LCase(Me.ListBox1.List(i)) Like LCase(Me.TextBox1.Value) + "*" Then
Me.ListBox1.Selected(i) = True
Num = False
End If
End If
Next
If Num And Not IsEmpty(Trim(Me.TextBox1)) Then
MsgBox "Número No Registrado", vbInformation + vbOKOnly, "Sra Marinella"

End If
End Sub

Gracias por tu ayuda...