Visual Basic - FILE

como hago para moverme por todas las lineas que tiene un archivo estandar por ejemplo NOMBRE.FFF se que se abre:

Open "c:\hola.doc" For Input As #1

Do While Not EOF(1)
Input #1, strbasesDatos
MsgBox strbasesDatos
Loop


´Input #1, strBasesDatos
Close #1

pero este codigo nada mas me retorna una sola linea y no todas..................

Gracias de antemano..............

Este código sirve para recorrer todas las lineas de un archivo de texto. Yo lo probé y funciona. Espero que te sirva...

Sub LeeArchivo()
Open App.Path & "\archivo.txt" For Input As #1
While Not EOF(1)
Line Input #1, sLinea
MsgBox sLinea
Wend
Close #1
End Sub