Done

Dim intFileNR as Integer, strInput as String

intFileNR = FreeFile
Open App.Path & "\simple.txt" For Input As IntFileNR
Do While Not EOF(intFileNr)
Line Input #intFileNR, strInput
DoSomething strInput
Loop
Close #intFileNR

Dvs. EOF har med textfilshantering i Visual Basic att göra och står för End Of File.

EOF ;)