Visual Basic - Buscar List1

Hola, Buenas Noches

Miren Tengo una duda, Oacupo Hacer una aplicacion , Que Separe de una list1 , y lo mande a list2 , todo lo que contenga lo escrito en el text1, pero que funcione con un boton

por ejemplo

en la lista tengo

juan peres
juan camaney
alejandro camalion
perla ruiz
chino torres
jose perales

y en el text1 tengo "per"

doy click en el boton de "Buscar"

y en el list2 me agregue

juan peres
perla ruiz
jose perales

si me pudieran ayudar o explicar , porfavor :)

Gracias :)

Hola se hace así:

Private Sub Command1_Click()
List2.Clear

For i = 0 To List1.ListCount - 1
List1.ListIndex = i

If InStr(1, List1.text, Text1.text, vbTextCompare) > 0 Then
List2.AddItem (List1.text)
End If
Next i
End Sub

Saludos!!

Asi de Facil??

Muchisimas Gracias :)

Cuando te vea te Invito un Refresco

ty

Instr busca apartir de una posición un string dentro de otro, y devuelve la posición de la primera coincidencia.

y gracias por lo del refresco, Jajaja lo voy a tomar en cuenta ;)

Saludos!!