Sub Avvia(Parola As String)
Motore("",Parola)
End Sub
Sub Motore(Fisso As String, Variabile As String)
Dim S As String
For i=0 To Variabile.Length-1
Log(Fisso & Variabile.CharAt(i))
S=Variabile.SubString2(0,i) & Variabile.SubString2(i+1,Variabile.Length)
Motore(Fisso & Variabile.CharAt(i),s)
Next
End Sub