si deseo realizar la busqueda tal y como la plantearon ustedes   este archivo contendra nombres en el cuanl io introducire el nombre y que se posicione donde esta el    nombre que yo antes he referido   ten go este codigo con el cual ya tengo establecido   abrir el archivo que yo deseo y  lo muestro en pantalla.



Option Explicit
Dim lalo As String
Dim renglon As String
Dim Ruta As String

Private Sub Command1_Click()
Ruta = Text2.Text
renglon = Chr(13) & Chr(10)
Open Ruta For Input As #1
While Not EOF(1)
Line Input #1, lalo$
Text1.Text = Text1.Text & lalo & renglon
Wend

Close #1

End Sub