'Zeile für Zeile auslesen aus der Textdatei "01_Weihnachtsgeld_Faktor.txt" und 
 ' in die Textfelder füllen
        Using MyReader As New Microsoft.VisualBasic.FileIO.TextFieldParser( _
          Startpfad & "\Daten\01_Weihnachtsgeld_Faktor.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 split_textdatei() As String
 
                    For Each currentField In currentRow
 
                        split_textdatei = Split(currentField, "|")
                        Me.group_faktor.Controls(split_textdatei(0)).Text = _
                          split_textdatei(1)
 
                    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