Sub Main()
 
        lines = IO.File.ReadAllLines(path & Now.ToString("ddMMyyyy") & ".BDE")
 
        Dim Var1() As String
        Dim part1 As Integer
        Dim part2 As Integer
 
        Chart1.Series(0).XValueType = ChartValueType.Auto
        Chart1.Series(1).XValueType = ChartValueType.Auto
        Chart1.Series(2).XValueType = ChartValueType.Auto
        Chart1.Series(3).XValueType = ChartValueType.Auto
 
        Chart1.Series(0).Points.AddXY(Einstellungen.TextBox1.Text, _
          Einstellungen.TextBox2.Text)
        Chart1.Series(2).Points.AddXY(Einstellungen.TextBox3.Text, _
        Einstellungen.TextBox4.Text)
 
        For x = 20 To UBound(lines)
            Var1 = lines(x).Split(CChar(" ")) 'jeweils bei einem Leerzeichen 
            ' trennen
            If Var1(0) = Einstellungen.TextBox1.Text Then
                part1 = part1 + 1
            ElseIf Var1(0) = Einstellungen.TextBox3.Text Then
                part2 = part2 + 1
            End If
        Next x
 
        Chart1.Series(1).Points.AddXY(Einstellungen.TextBox1.Text + 1, part1)
        Chart1.Series(3).Points.AddXY(Einstellungen.TextBox3.Text + 1, part2)
 
        ' MsgBox(Var1(0) & " " & Var1(1))
 
    End Sub