Dim F As Integer
Dim sInhalt As String
 
F = FreeFile
Open "Datei.txt" For Binary As #F
sInhalt = Space$(Lof(F))
Get #F, , sInhalt
Close #F
 
Dim sLines() As String
Dim i As Long
 
sLInes = Split(sInhalt, Chr$(10))
For i = 0 To UBound(sLines)
  List1.AddItem sLines(i)
Next i

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de