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