Public zug_weiß As New List(Of String)
    Public zug_schwarz As New List(Of String)
    Dim w_string,s_string As String
 
For i = 1 To ListBox1.Items.Count - 1
                w_string = ListBox1.Items(i).ToString
                s_string = ListBox1.Items(i).ToString
 
                w_string = Split(w_string, " ")(1)
                s_string = Split(s_string, " ")(2)
                zug_weiß.Add(Trim(w_string))
                zug_schwarz.Add(Trim(s_string))
            Next