Wie viel verschiedene "Worte" kann man aus dem Wort "Hallo" erstellen ?
    Auch wenn es keine richtigen Worte sind,
    kann man das Wort Hallo immerhin auf 120 verschiedene Arten darstellen...

    Hallo, Halol, Hallo, Halol, Haoll, Haoll, Hlalo, Hlaol, Hllao, Hlloa usw.

    Und so geht es:

ERFORDERLICHE OBJEKTE

   1 Listbox (List1)
   2 CommandButtons (Command1, Command2)
   1 Textbox (Text1)
 FORM-CODE

   Sub Textdreher(x As String, y As String)
      Dim i As Integer, j As Integer
      j = Len(y)
      If j < 2 Then
         List1.AddItem x & y
         List1.ListIndex = List1.ListCount - 1
         Caption = List1.ListCount & " Möglichkeiten"
      Else
         For i = 1 To j
            Call Textdreher(x + Mid(y, i, 1), Left(y, i - 1) + _
               Right(y, j - i))
         Next i
      End If
   End Sub

   Private Sub Command1_Click()
      List1.Clear
      Call Textdreher("", Text1.Text)
   End Sub

   Private Sub Command2_Click()
      Unload Me
   End Sub

   Private Sub Form_Load()
      Command1.Caption = "&Start"
      Command2.Caption = "&Beenden"
      Text1.Text = "Hallo"
   End Sub