Не работает счетчик - VB

Формулировка задачи:

Суть такая, написал программу которая проверяет знания таблицы умножения. Задается время 60 сек , вводится ответ и если правильно, то счетчик правильный ответов увеличивается на 1. Время тикает до 0. Все работает хорошо. Но я хочу ввести и счетчик неправильных ответов, а вот он не работает.При вводе любого числа он срабатывает на +1, если число двузначное, то дает +2 причем не важно верное число введено или нет. вот код:

                    Листинг программы
                
 
                            
                        
Option Explicit
Dim value As Integer, value1 As Integer, mult As Integer, Result As Currency
 
Private Sub Form_Load()
Timer1.Enabled = False
End Sub
 
Private Sub Command1_Click()     
Timer1.Enabled = True               
Randomize
value = CInt(Int((10 * Rnd()) + 1)) 
value1 = CInt(Int((10 * Rnd()) + 1))
Text1.Text = value
Text2.Text = value1
mult = value * value1
Text3.SetFocus
 
End Sub
Private Sub Text3_Keypress(KeyAscii As Integer)
 Select Case KeyAscii
   Case 48 To 57, 8
   Case Else
         KeyAscii = 0
End Select
Result = Val(Text3.Text)
If Result = mult Then
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Randomize
value = CInt(Int((10 * Rnd()) + 1))
value1 = CInt(Int((10 * Rnd()) + 1))
Text1.Text = value
Text2.Text = value1
mult = value * value1
Label3.Caption = Label3.Caption + 1          ' счетчик правильных ответов
Text3.SetFocus
else: Label5.Caption = Label5.Caption + 1    '  неправильные ответы
End If
End Sub
 
Private Sub Timer1_Timer()                        ' счетчик времени 60 сек
Label2.Caption = Label2.Caption - 1
If Label2.Caption = 0 Then
MsgBox "The End!"
Timer1.Enabled = False
Label2.Caption = 60
End If
 
End Sub
Private Sub Command2_Click()
End
End Sub

Решение задачи: «Не работает счетчик»

textual
                            Листинг программы 
                        
 
                            
                        
Private Sub Command2_Click()
 
a = Val(Text1.Text)
b = Val(Text2.Text)
c = Val(Text3.Text)
 
If c = a * b Then
    Label3.Caption = Label3.Caption + 1
    Else
    Label5.Caption = Label5.Caption + 1
    End If
Randomize
Text1.Text = CInt(Int((10 * Rnd()) + 1))
Text2.Text = CInt(Int((10 * Rnd()) + 1))
Text3.Text = ""    
Text3.SetFocus
End Sub
 
Private Sub Command1_Click()
   Timer1.Enabled = True
   Randomize
   Text1.Text = CInt(Int((10 * Rnd()) + 1))
   Text2.Text = CInt(Int((10 * Rnd()) + 1))
   Command1.Visible = False
   Command2.Visible = True
End Sub
 
Private Sub Form_Load()
   Command1.Visible = True
   Command2.Visible = False
End Sub
 
Private Sub Text3_Keypress(KeyAscii As Integer)
 
 Select Case KeyAscii
   Case 48 To 57, 8
   Case Else
   KeyAscii = 0
 End Select
 
End Sub
 
Private Sub Timer1_Timer()                        ' счетчик времени 60 сек
    Label2.Caption = Label2.Caption - 1
    If Label2.Caption = 0 Then
        MsgBox "The End!"
        Timer1.Enabled = False
        Label2.Caption = 60
        Command1.Visible = True
        Command2.Visible = False
        Text1.Text = ""
        Text2.Text = ""
        Text3.Text = ""
        Label3.Caption = "0"
        Label5.Caption = "0"
    End If
End Sub