2008.10.05;08:05:00;1018.0;80.929992675;2.209999797;1061;44002;0.0;23403;0.0
2008.10.05;08:15:00;1017.5;81.149993895;2.25;1061;43992;0.0;23463;0.0
2008.10.05;08:30:00;1018.0;80.959999083;2.339999911;1061;43989;0.029999969;2355_
  3;0.0
2008.10.05;08:45:00;1017.799926757;81.0;2.529999969;1061;44029;0.0;23643;0.0
2008.10.05;09:00:00;1018.0;80.890007016;2.82999992;1061;44018;0.169999954;23733_
  ;0.0

     Dim fs As New System.IO.StreamReader(Application.StartupPath & _
       "\capture.txt") ' Datei als StreamReader öffnen
        Dim b(fs.BaseStream.Length) As Char ' einen Buffer für den Dateiinhalt 
        ' anlegen
        Dim C() As Char = {";"} ' Ein Array mit den Zeichen, an denen 
        ' gesplittet werden soll
        Dim s As String ' Der String für den Dateiinhalt
        Dim strArray() As String ' Das Array für die einzelnen Zahlen (als 
        ' Strings)
        Dim I As Integer ' Schleifenvariable (für FOR...NEXT)
        Dim Zahl As Integer ' Eine Variable für Zahl
 
        fs.ReadBlock(b, 0, fs.BaseStream.Length) ' Den gesamten Dateiinhalt in 
        ' den Buffer einlesen
        s = Convert.ToString(b) ' In einen String konvertieren
        strArray = s.Split(C) ' In ein String-Array konvertieren
 
        fs.Close() ' SreamReader wieder schließen
 
        'Array durchlaufen und die einzelnen Strings in Zahlen umwandeln
        For I = 0 To UBound(strArray)
            'Zahl = Convert.ToInt64(strArray(I))
            Console.Write(Zahl.ToString)
            ListBox1.Items.Add(strArray(I))
 
        Next I