Генератор паролей

Option Explicit
 
Private Sub Form_Click()
   Dim n As Byte
   Dim i As Byte
   Dim aSym(1 To 62) As String * 1, j As Byte
   Dim msg As String
   
   n = Val(InputBox("Длина пароля:", , 10))
   
   Randomize
   For i = 48 To 122
      If (i >= 48 And i <= 57) Or _
         (i >= 65 And i <= 90) Or _
         (i >= 97 And i <= 122) Then
            j = j + 1
            aSym(j) = Chr(i)
      End If
   Next i
   
   For i = 1 To n
      msg = msg & aSym(Int(62 * Rnd + 1))
   Next i
   MsgBox msg
End Sub

Option Explicit
Dim a(3, 26) As Integer, parol As String, p As Integer
Dim i As Integer, ind1 As Integer, ind2 As Integer
 
Private Sub Command1_Click()
p = Val(Text1.Text)
If Len(p) < 1 Then
MsgBox "L>0 !!!"
Exit Sub
End If
parol = ""
For i = 1 To p
ind1 = Int(Rnd * 2) + 1 'Int(Rnd * 2) + 1 если больших не над
Label1 = ind1
If ind1 = 1 Then
ind2 = Int(Rnd * 10) + 1
Else
ind2 = Int(Rnd * 26) + 1
End If
parol = parol & Chr(a(ind1, ind2))
Next i
Text2.Text = parol
End Sub
 
Private Sub Form_Load()
Text2.Locked = True
For i = 1 To 10
a(1, i) = i + 47 'цифры
Next i
For i = 1 To 26
a(3, i) = i + 64 'большие
a(2, i) = i + 96 'маленькие
Next i
End Sub