Dim pass As String

nu = 6 'Il numero di caratteri della password
For i = 1 To nu

Do
Randomize Timer
a = Int(Rnd * 122) + 1
Loop Until (a > 64 And a < 91) Or (a > 96 And a < 123) Or (a > 47 And a < 58)
'Ripete il ciclo finchè il numero trovato non corrisponde al codice ascii di una lettera maiuscola, minuscola o ad una cifra... se vuoi utilizzare solo lettere e non cifre elimina l'ultimo or..

pass = pass + Chr$(a) 'Crea la password

Next i

ora in pass è contenuta la password che ti serve...