Private Sub Form_Load()
  ' Datei öffnen und Daten in Array einlesen
  Dim F As Integer
  Dim sBuffer As String
 
  F = FreeFile
  Open "Daten.txt" For Binary As #F
  sBuffer = Space$(Lof(F))
  Get #F, , sBuffer  
  Close #F
 
  sDaten = Split(sBuffer, vbCrLf)
  nCount = UBound(sDaten)
  MsgBox CStr(nCount)
 
  ' 1. Satz anzeigen
  nCurrent = 1
  ShowDaten
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de