Dim F As Integer
Dim sFile As String
Dim sLine As String
Dim lngFromLine As Long
Dim I As Long
 
' Einlesen ab Zeile 6
lngFromLine = 6
 
sFile = "DeineDatei.txt"
 
F = FreeFile
Open sFile For Input As #F
 
' zunächst die nicht gewünschten Zeilen überlesen
For I = 1 To lngFromLine - 1
  If Eof(F) Then Exit For
  Line Input #F, sLine
Next I
 
' Jetzt bis zum Dateiende auslesen
While Not Eof(F)
  Line Input #F, sLine
  ...
Wend
Close #F