'Dieser Teil löscht zuerst alle Einträge aus der 2. Listbox
        Dim anzahl2 As Integer
        anzahl2 = ListBox2.Items.Count
        ListBox2.SelectedItem = 0
 
        For y As Integer = 0 To anzahl2 - 1
            ListBox2.SelectedItem = y
            ListBox2.Items.Remove(ListBox2.SelectedItem)
 
        Next
        'Jetzt werden neue Einträge gesucht und gegebenenfalls zur 2. listbox 
        ' hinzugefügt.
        Dim anzahl As Integer
        anzahl = ListBox1.Items.Count
        ListBox1.SelectedItem = 0
        For i As Integer = 0 To anzahl - 1
 
 
            If ListBox1.Items(i).Contains(KryptonComboBox1.Text) = True Then
                ListBox2.Items.Add(ListBox1.Text)
 
            Else
 
            End If
        Next
        MsgBox("Suche abgeschlossen.")