Dim ProduktFilePath As String
            ProduktFilePath = Application.StartupPath.ToString() & "\" & _
              Main.ProduktFilePath
            Dim TempString() As String
            Dim Zaehler As Integer = 0
 
            TempString = System.IO.File.ReadAllLines(ProduktFilePath)
 
            While Zaehler <= TempString.Length - 1
                If TempString(Zaehler).StartsWith( _
                  Me.Txt_fertigungsauftragnr.Text) Then
                    'Dim sWerte As String = TempString(Zaehler).Split(";")
                    'Me.Cmb_Produkte.Text = TempString(Zaehler)
                    Main.Toleranzwert = TempString(Zaehler).Split
                End If
                Zaehler += 1
            End While