'Zeile für Zeile auslesen aus der Textdatei 
        ' "01_Weihnachtsgeld_Kontonummer.txt" und in die Textfelder füllen
        Using MyReader As New _
        Microsoft.VisualBasic.FileIO.TextFieldParser(Startpfad & _
        "\Daten\01_Weihnachtsgeld_Kontonummer.txt")
            MyReader.TextFieldType = FileIO.FieldType.Delimited
            MyReader.SetDelimiters(",")
            Dim currentRow As String()
            While Not MyReader.EndOfData
                Try
                    currentRow = MyReader.ReadFields()
                    Dim currentField As String
                    Dim nummer As Integer
 
                    For Each currentField In currentRow
 
                        nummer = nummer + 1
                        Me.group_konto.Controls("txt_konto" & nummer).Text = _
                          currentField
 
                    Next
                Catch ex As Microsoft.VisualBasic.FileIO.MalformedLineException
                    MsgBox("Line " & ex.Message & _
                    "is not valid and will be skipped.")
                End Try
            End While
        End Using