Sub Zeilenausleser()
Dim lRow As Long
Dim sline, sFilename$
Dim LineToRead, F%
I = 1
LineToRead = 3
Do
    lRow = 1
    If Dir$(sFilename) <> "" Then
    F = FreeFile
      sFilename = "c:\Eigene Dateien\Test\Antaris.txt"
      Open sFilename For Input As #F
      ' Solange einlesen, bis entweder Dateiende
      ' oder gewünschte Zeilennummer erreicht
    Do While Not EOF(F) And lRow < LineToRead
      lRow = lRow + 1
      Line Input #F, sline
      MsgBox (sline)
    Loop
      Close #F
    End If
I = I + 1
Loop While I <= 3
End Sub