Te estoy repitiendo que el código que puse está bien. Fíjate un poquito. La primera parte guarda 2 cadenas de texto:
Código:
Private Sub Command1_Click()
Open "C:\prueba.txt" For Append As 1
Write #1, Text1.Text
Write #1, Text2.Text
Close #1
End Sub
Y ésta es la de búsqueda
Código:
Private Sub Command2_Click()
Dim Uno As String
Dim Dos As String
Open "C:\prueba.txt" For Input As 1
Do While Not EOF(1)
Input #1, Uno
Input #1, Dos
If Dos = Text3.Text Then
MsgBox "Encontrado " & Dos
End If
Loop
Close #1
End Sub
Te repito: El código que te he escrito ahí funciona. Amplíalo con los demás campos que uses si quieres.
Para mostrar una lista de cosas, o usas un TextBox con MultiLine en ON, o un ListBox mejor.