Dim F As Integer
Dim sInhalt As String
Dim sLines() As String
Dim I As Long
 
F = FreeFile
Open "DeineDatei.dat" For Binary As #F
sInhalt = Space$(Lof(F))
Get #F, , sInhalt
Close #F
 
sLines = Split(sInhalt, Chr(10))
 
For I = 0 To Ubound(sLines)
  ' sLines(I) = Zeile
  ...
Next I