Visual Basic - un fallo simple, pero no lo encuentro

hola,
vereis estoy haciendo un programa que consiste en hacer un "examen" de diez multiplicaciones y cuando haga el niño las 10 y se a un boton que sirve para ver la siguiente multiplicacion salte el formulario 2 diciendole cuales tiene bien y si tiene alguna mal poniendole la respuesta correcta.

llevo intentandolo arreglar un buen rato.. se que debe ser un error muy simple pero no consigo encontrarlo, les agradeceria mucho que me ayudasen:

Option Explicit
Dim n1(1 To 10) As Integer
rem el primer término de la multiplicacion
Dim n2(1 To 10) As Integer
rem el segundo término de la multiplicacion
Dim s(1 To 10) As Integer
rem las 10 soluciones
Dim a As Integer
Dim b As Integer


Private Sub Command1_Click()
rem boton de siguiente multiplicacion
s(b) = Val(Text1.Text)
b = b + 1
Label2.Caption = n1(b)
Label4.Caption = n1(b)
If s(b) = n1(b) * n2(b) Then Form2.Label1 = Form2.Label1 & vbCrLf & " respuesta correcta "
If s(b) <> n1(b) * n2(b) Then Form2.Label1 = Form2.Label1 & vbCrLf & " respuesta incorrecta, la respuesta correcta es " & n1(b) * n2(b)

If b = 10 Then
Form2.Show
Form2.Label1 = Form2.Label1 & vbCrLf
End If

End Sub

Private Sub Form_Load()
Load Form2
For a = 1 To 10

Randomize Timer
n1(a) = Int(Rnd * 10) + 1
Randomize Timer
n2(a) = Int(Rnd * 10) + 1

Next a

b = 1
Label2.Caption = n1(b)
Label4.Caption = n2(b)


End Sub

Enviame a mi dirección de correo el proyecto entero y te lo depuro para encontrar el fallo, es que solo con el codigo es chungo depurar en tiempo de ejecucuón.