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