Dim F As Integer
Dim LineOfText As String
 
If Dir$(sFile) = "" Then Exit Function
 
    Open sFile For Input As #F
        F = FreeFile
        Do Until EOF(F)
            Line Input #F, LineOfText
            ' LineOfText hier bearbeiten....
        Loop
 
    Close #F

Mit freundlichen Gr??en,
Andy G.