Как генерировать пароли

Private Sub Command1_Click()
Dim Pass As String, i As Byte, x As Byte
Randomize Timer ' инициализация псевдослучайного числа
For i = 1 To 10 ' Пароль 10 символов
x = (Rnd * 77) + 48 ' генерация ASCII кода случайной буквы, символа или цифры
Pass = Pass & Chr(x) ' преобразуем код ASCII в букву, символ или цифру
Next
Print Pass ' печатаем пароль на форму
End Sub

Private Sub Command1_Click()
Dim Pass As String, i As Byte, x As Byte
Dim arr(1 To 10) As Integer, a As Integer, b As Integer, c As Integer
Randomize Timer ' инициализация псевдослучайного числа
 
For i = 1 To 10: arr(i) = i: Next i 'заполняем массив
For i = 1 To 50 'сколько раз перемешать
a = Int((Rnd * 10) + 1): b = Int((Rnd * 10) + 1)
c = arr(b): arr(b) = arr(a): arr(a) = c
Next i
 
For i = 1 To 10 ' Пароль 10 символов
Select Case arr(i)
Case 1, 10
     x = (Rnd * 9) + 48 ' генерация  цифры
Case 2, 9
     x = (Rnd * 6) + 58 ' генерация символ
Case 3, 8
     x = (Rnd * 25) + 65 ' генерация БОЛЬШИХ букв
Case 4, 7
     x = (Rnd * 25) + 97 ' генерация маленьких букв
Case 5, 6
     x = (Rnd * 5) + 91 ' генерация символ
End Select
 
Pass = Pass & Chr(x) ' преобразуем код ASCII в букву, символ или цифру
Next
Print Pass ' печатаем пароль на форму
End Sub