Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) _
      Handles Button1.Click
        Trennen()
    End Sub
 
    Private Sub Trennen()
 
        Dim Namen() As String
        ListBox1.Items.Clear()
 
        For x = 0 To ListBox2.Items.Count - 1
 
            Namen = Split(ListBox2.Items(x), " = ")
            ListBox1.Items.Add(Namen(1))
            ListBox2.Items(x) = Namen(0)
 
        Next x
 
    End Sub