Para leer linea a linea un fichero, utilizar LineInput

Sub leelineas()
Dim LineaTexto As String
Dim Manejador As Long
Manejador = FreeFile
 Open CurrentProject.Path & "\PRUEBA.TXT" For Input As #Manejador
Do While Not EOF(Manejador)
    Line Input #1, LineaTexto
    
Loop
Close #Manejador
End Sub