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

Private Sub Command1_Click() 
Randomize 
Dim i As Integer, r As Integer, l As Integer 
Text2.Text = "" 
l = Int(Rnd * 11) + 5 
For i = 1 To l 
1 r = Int(Rnd * 60) + 48 
If (r > 57 And r < 65) Or (r > 90 And r < 97) Or r > 122 Then GoTo 1 
Text2.Text = Text2.Text & Chr(r) 
Next i 
End Sub 
 
Private Sub Command2_Click() 
If Text1.Text = "" Or Text2.Text = "" Then 
MsgBox "o" 
Exit Sub 
End If 
Dim F As Long 
F = FreeFile 
Open App.Path & "\P.txt" For Append As #F 
Print #F, Text1.Text 
Print #F, Text2.Text 
Close #F 
End Sub

Dim i As Integer, r As Integer, l As Integer
 
Private Sub Command1_Click()
For b = 1 To 10000
DoEvents
Randomize
Text2.Text = ""
l = Int(Rnd * 11) + 5
For i = 1 To l
1 r = Int(Rnd * 60) + 48
If (r > 57 And r < 65) Or (r > 90 And r < 97) Or r > 122 Then GoTo 1
Text2.Text = Text2.Text & Chr(r)
Next i
F = FreeFile
Open App.Path & "\P.txt" For Append As #F
Print #F, Text2.Text
Close #F
Next b
End Sub

Private Sub Form_Load()
    Dim fNum As Integer, Z As Long
    fNum = FreeFile
    Open "D:\Temp.txt" For Append As fNum
    For Z = 1 To 10
        Print #fNum, GetPassword
    Next
    Close fNum
End Sub
Private Function GetPassword(Optional ByVal NumSmb As Long = 10) As String
    Dim S As String
    Do While NumSmb > 0
        S = Chr$(Int(Rnd * 96) + 32)
        GetPassword = GetPassword & S
        NumSmb = NumSmb - 1
    Loop
End Function