generatore password casuali in un ciclo do while

[Mems]

Do Until len(password) = 10 
randomize()
carattere = Int((37 * Rnd) + 1) 
password = password & Mid(caratteri,carattere,1)
Loop