'Datei zum Lesen öffnen
        Dim file As New System.IO.StreamReader(OFD1.FileName, _
          System.Text.Encoding.Default)
        'String Variable zum zeilenweise Einlesen der Datei
        Dim oneLine As String
        Dim c1 As Integer = 0
        Dim c2(1) As Char
        c2(0) = Chr(34)
        'Wenn eine Datei ausgewählt wurde
 
        'Solange ein Zeichen Vorhanden ist
        While file.Peek
            'Eine Zeile lesen
            oneLine = file.ReadLine()
            oneLine = oneLine.Trim
            'Zähler erhöhen (Statusanzeige)
            c1 += 1
            '............