Hola Gena:
Aca tenes el proyecto, agrega un textbox, un commandbutton y dos listbox, y luego copia este código.
Todo está suficientemente explicado.

------------------------------------------------------------­--------------------------------------
'variable para el array
Dim Nnombres() As String

Private Sub Command1_Click()
'declaramos variables
Dim i As Integer, pos As Integer
'vaciamos el list donde se muestra el resultado
List2.Clear
'iniciamos la busqueda desde el primer elemento de la matriz
For i = 0 To UBound(Nnombres)
'Utilizamos la función -InStr- y trim para eliminar los espacios vacios al principio y final de la cadena
pos = InStr(1, Nnombres(i), Trim(Text1.Text), vbTextCompare)
'si pos devuelve distinto a 0, informamos los datos en esos momentos
If pos <> 0 Then
'MsgBox "El dato aportado, se halla en la matriz, con el indice: " _
& i + 1 & " y corresponde a " & Nnombres(i)
List2.AddItem Nnombres(i) & "-Orden n°(" & i + 1 & ")"
End If
Next i
End Sub

Private Sub Form_Load()
'declaramos variable para el bucle for
Dim i As Integer
'cargamos el listbox
List1.AddItem "José Pérez"
List1.AddItem "Perico Pérez"
List1.AddItem "Alberto Rodriguez"
List1.AddItem "Martín Fernández"
List1.AddItem "Luis Pedro Méndez"
List1.AddItem "Josefo Hernández"
List1.AddItem "María José Martinez"
List1.AddItem "Anibal Santellan"
List1.AddItem "Jorge Alberto Castro"
List1.AddItem "Miriam Zulema Correa"
List1.AddItem "Lola Flores"
List1.AddItem "Cristin Castro"
List1.AddItem "Alberto Iglesias"
'establecemos los elementos de la matriz
'preserve es opcional en este caso no tiene sentido dado que la matriz está a cero.
ReDim Nnombres(List1.ListCount - 1)
For i = 0 To List1.ListCount - 1
Nnombres(i) = List1.List(i)
Next i
End Sub

Private Sub Text1_Click()
Text1.Text = ""
End Sub
--------------------------------------------------------------------------------------------------

Un abrazo y cualquier cosa a tu disposición.


Desde Bragado, Provincia de Buenos Aires, Rca. Argentina.


Luis