salve

il seguente codice realziaa un'anagramma della parola

codice:
rivate Sub Command1_Click()
parola$ = Text1.Text
x = Len(parola$)
For i = 1 To x
num = Int(x * Rnd) + 1
cartemp$ = Mid(parola$, i, 1)
Mid(parola$, i, 1) = Mid(parola$, num, 1)
Mid(parola$, num, 1) = cartemp$
Next i
Text2.Text = parola$

End Sub

Private Sub Command2_Click()
End
End Sub
il programma lo capisco ma non riesco a cpaire la funzione dell'istruzione in neerettop ciao

grazie