Visual Basic - Uso de "findnext"

Saludos a todos:

Mi problema es el siguiente, estoy realizando una macro en visual 6.3 para excel 2003, que debe de buscarme los tres primeros registros dentro de una hoja que coincidan con lo que he escrito en una caja de texto y escribirmelos en otra, lo que pasa es que solo me encuentra uno y los dos siguientes me repite el mismo, he probado ya de mil maneras distintas y siempre me hace lo mismo, os inserto el ultimo codigo que he usado a ver si me podeis decir el erro que estoy cometiendo, os doy las gracias de antemano

Private Sub CommandButton1_Click()

texto = TextBox1.Text

With Worksheets("hoja1").Range("a1:b360")

texto1 = .Find(texto)
texto2 = .FindNext
texto3 = .FindNext

End With

Worksheets("hoja2").Range("A1") = texto1
Worksheets("hoja2").Range("A2") = texto2
Worksheets("hoja2").Range("A3") = texto3

End Sub

Saludos...