'Se no....

Dim Parola As String

Randomize

nChar = 5 'numero caratteri.


For i = 1 to nChar

tipo = int(rnd * 3) + 1


If tipo = 1 Then

carattere = chr(97 + int(rnd * 25)) '25 numero di lettere
'97 la 'a' minuscola
elseif tipo = 2 Then

carattere = chr(65 + int(rnd * 25)) '25 numero di lettere
'65 la 'A' maiuscola
elseif tipo = 3 Then

carattere = int(rnd * 9) + 1 'Numero da 1 a 9

End if


Parola = Parola & carattere

Next

MsgBox Parola