Using Reader As New FileIO.TextFieldParser("c:\vvv.txt", _
   System.Text.Encoding.Default)
            Reader.TextFieldType = FileIO.FieldType.FixedWidth
            Dim fieldWidths As Integer() = {14, 10, 4, 4, 12, 40, 6, 2}
            Reader.SetFieldWidths(fieldWidths)
 
            While Not Reader.EndOfData
                Dim Spalten As String()
                Spalten = Reader.ReadFields
                MsgBox(Spalten(0)) 'zeigt erstes Feld jeder Zeile an
            End While
 End Using