'Wenn eine Datei ausgewählt wurde
        If OFD1.FileName <> "" Then
 
            'Datei zum Lesen öffnen
            Dim file As New System.IO.StreamReader(OFD1.FileName)
 
            'String Variable zum zeilenweise Einlesen der Datei
            Dim oneLine As String
 
            Dim c1 As Integer = 0
            'Solange ein Zeichen Vorhanden ist
            Dim c2(1) As Char
            c2(0) = Chr(34)
 
            While (file.Peek)
                'Eine Zeile lesen
                oneLine = file.ReadLine()
                'Zähler erhöhen (Statusanzeige)
                c1 += 1
                oneLine = oneLine.Trim
                If oneLine.StartsWith("DATRKADK-START") Then
                    ReDim Preserve Pos(Poscounter + 1)
                    Pos(Poscounter) = New DATRKADK
                    While Not oneLine.StartsWith("DATRKADK-END")
                        oneLine = file.ReadLine()
                        'Zähler erhöhen (Statusanzeige)
                        c1 += 1
                        oneLine = oneLine.Trim
                        Try
                            If oneLine.StartsWith("KADK_AZ") Then
                                oneLine = oneLine.Substring(8)
                                oneLine = oneLine.Trim(c2)
                                Pos(Poscounter).KADK_AZ = oneLine
                                Pos(Poscounter).KADK_FELD_10 = oneLine
                                MessageBox.Show("Feld 10: " & Pos( _
                                  Poscounter).KADK_Feld_10)
                            End If
                        Catch ex As Exception
                            MessageBox.Show(c1)
                        End Try
 
                    End While
                    Poscounter += 1
                End If