Dim Code(0 To 64) As String
Dim Password As String
Dim Time As Integer

Private Sub Command1_Click()
Timer1.Enabled = True
End Sub

Private Sub Command2_Click()
Timer1.Enabled = False
End Sub

Private Sub Command3_Click()
Dim Check As Integer

For Check = 0 To 64
Code(Check) = 95
Next Check
End Sub

Private Sub Form_Load()
Dim Check As Integer

For Check = 0 To 64
Code(Check) = 95
Next Check

End Sub

Private Sub Timer1_Timer()
Dim Speed As Integer
Dim Check As Integer

Time = Time + 5

For Speed = 0 To Slider1.Value

Password = ""

Code(0) = Code(0) + 1

For Check = 0 To 64
If Code(Check) = 95 Then

Else
Password = Password & Chr(Code(Check) + 1)
End If
Next Check

For Check = 0 To 64
If Code(Check) + 1 = 122 Then
Code(Check) = 95
Code(Check + 1) = Code(Check + 1) + 1
End If
Next Check

Me.Caption = "Подбор: " & Password

If UCase(Text2.Text) = UCase(Password) Then
MsgBox "Found your password.", vbInformation, "Cracked"
Timer1.Enabled = False
Exit Sub
End If

Next Speed
End Sub