Dim F As Integer
Dim sLine() As String
Dim nCount As Long
Dim i As Long
Dim sInhalt As String
 
' Gesamte Datei einlesen
F = FreeFile
Open "Datei.txt" For Input As #F
sInhalt = Space$(Lof(F))
Get #F, , sInhalt
Close #F
 
' Inhalt in Zeilen-Array splitten
sLines = Split(sInhalt, vbCrLf)
 
' alle Zeilen durchlaufen
nCount = UBound(sLines)
For i = 0 To nCount - 1
 MsgBox "Zeile " & CStr(i+1) & ": " & sLine
Next i

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de