Dim sequenz() As Char = {"A"c, "8"c, "8"c, "8"c, "8"c, "8"c, "4"c}
 
Dim sequenzlist As List(Of Char()) = Permutationen_Ohne_Wiederholung(sequenz)
 
'5040 Permutationen (7 * 6 * 5 * 4 * 3 * 2)
For i As Integer = 0 To sequenzlist.Count - 1
 
   For k As Integer = 0 To sequenzlist(i).Length - 1
      Console.Write(sequenzlist(i)(k))
   Next k
 
   Console.WriteLine()
Next i