Public Class Form1
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        Dim c As Double
        Dim tt As Integer
 
        For tt = 1 To 12
 
 
            For c = 0 To ListBox1.Items.Count - 1
 
 
 
                If InStrRev(ListBox1.Items(c), "b") = ListBox1.Items( _
                  c).ToString.Length Or InStrRev(ListBox1.Items(c), "d") = _
                  ListBox1.Items(c).ToString.Length Then
                    'Überprüfen ob es Alles schon einmal durchgegangen ist (nur 
                    ' ein Teil) hat:
                    If ListBox1.Items(c).ToString.IndexOf("d") > -1 And _
                    ListBox1.Items(c).ToString.IndexOf("i") > -1 And _
                    ListBox1.Items(c).ToString.IndexOf("g") > -1 And _
                    ListBox1.Items(c).ToString.IndexOf("e") > -1 And _
                    ListBox1.Items(c).ToString.IndexOf("v") > -1 And _
                    ListBox1.Items(c).ToString.IndexOf("u") > -1 And _
                    ListBox1.Items(c).ToString.IndexOf("n") > -1 And _
                    ListBox1.Items(c).ToString.IndexOf("s") > -1 And _
                    ListBox1.Items(c).ToString.IndexOf("q") > -1 And _
                    ListBox1.Items(c).ToString.IndexOf("r") > -1 And _
                    ListBox1.Items(c).ToString.IndexOf("o") > -1 And _
                    ListBox1.Items(c).ToString.IndexOf("a") > -1 And _
                    ListBox1.Items(c).ToString.IndexOf("c") > -1 And _
                    ListBox1.Items(c).ToString.IndexOf("l") > -1 Then
 
                        ListBox2.Items.Add(ListBox1.Items(c))
                        MsgBox("ERFOLG! " & ListBox1.Items(c))
 
                    Else
 
 
                        ListBox1.Items.Add(ListBox1.Items(c) & "a")
 
       			ListBox1.Items.Add(ListBox1.Items(c) & "c")
 
 
                        ListBox1.Items.RemoveAt(c)
 
 
 
                    End If
                End If
 
 
 
                If InStrRev(ListBox1.Items(c), "l") = ListBox1.Items( _
                  c).ToString.Length Or InStrRev(ListBox1.Items(c), "u") = _
                  ListBox1.Items(c).ToString.Length Then
                    ListBox1.Items.Add(ListBox1.Items(c) & "v")
 
                    ListBox1.Items.Add(ListBox1.Items(c) & "k")
 
 
                    ListBox1.Items.Add(ListBox1.Items(c) & "m")
 
 
 
                    ListBox1.Items.RemoveAt(c)
 
                End If
 
 
                If InStrRev(ListBox1.Items(c), "j") = ListBox1.Items( _
                  c).ToString.Length Or InStrRev(ListBox1.Items(c), "k") = _
                  ListBox1.Items(c).ToString.Length Or InStrRev(ListBox1.Items( _
                  c), "r") = ListBox1.Items(c).ToString.Length Or InStrRev( _
                  ListBox1.Items(c), "q") = ListBox1.Items(c).ToString.Length _
                  Then
 
                    ListBox1.Items.Add(ListBox1.Items(c) & "l")
 
 
                    ListBox1.Items.Add(ListBox1.Items(c) & "p")
 
 
                    ListBox1.Items.Add(ListBox1.Items(c) & "t")
 
 
 
                    ListBox1.Items.RemoveAt(c)
 
                End If
 
                If InStrRev(ListBox1.Items(c), "t") = ListBox1.Items( _
                  c).ToString.Length Then
 
                    ListBox1.Items(c) = ListBox1.Items(c) & "s"
 
                End If
 
 
                If ListBox1.Items(c).ToString.Length > 24 Then
                    ListBox1.Items.RemoveAt(c)
                End If
            Next
 
        Next
 
    End Sub
 
End Class