[VB - makro] anagrami

Sub permutacijaZacni()
 Dim beseda As String
 beseda = InputBox("Vpiši besedo: ")
 Call permutacija(beseda, "")
End Sub

Sub permutacija(ostanek_besede As String, koren_besede As String)
  Dim i As Integer, prva As String, druga As String
  If Len(ostanek_besede) = 1 Then
    Selection.TypeText Text:=koren_besede + ostanek_besede 'Ce vsebuje niz ostanek_besede le eno črko, izpiše koren besede ter ostanek besede, sicer pa
    Selection.TypeParagraph
  Else
     For i = 1 To Len(ostanek_besede)  ' Za vsako črko x niza ostanek_besede stori naslednje:
       prva = Mid(ostanek_besede, 1, i - 1) + Mid(ostanek_besede, i + 1, Len(ostanek_besede))   'Prva beseda je enaka ostanek_besede brez črke x
       druga = koren_besede + Mid(ostanek_besede, i, 1) 'Druga beseda je enaka koren_besede z dodano črko x
       Call permutacija(prva, druga)
     Next
  End If
End Sub