Dim F As Integer
Dim sInhalt As String
Dim sLine As Variant
Dim I As Long
 
 
F = FreeFile
Open "DeineDatei" For Binary As #F
sInhalt = Space$(Lof(F))
Get #F, , sInhalt
Close #F
 
sLine = Split(sInhalt, Chr(10))
 
For I = 0 To UBound(sLine)
  Debug.Print sLine(I)
Next I