Не считается результат теста: модернизировать код - VB

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

Private Sub NextQ_Click() 'ГЄГ*Г®ГЇГЄГ* Г*Г*Г±ГІГіГЇГ*ГҐ ГЇГЁГІГ*Г*Г*Гї
If Option1.Value = False And Option2.Value = False And Option3.Value = False And Option4.Value = False Then
c = MsgBox("ГЌВіГ·Г®ГЈГ® Г*ГҐ ГўГЁГЎГ°Г*Г*Г®", vbOKOnly, "ГЏГ®Г¬ГЁГ«ГЄГ*")
Else
On Error Resume Next
Data1.Recordset.MoveNext
Data2.Recordset.MoveNext
End If
If Vopros.Caption = "7" Then
NextQ.Visible = False
result.Visible = True
End If
b = 0
If Vopros.Caption = "1" And Option1.Value = True Then
b = d + 1
End If
If Vopros.Caption = "2" And Option2.Value = True Then
b = d + 1
End If
If Vopros.Caption = "3" And Option2.Value = True Then
b = d + 1
End If
If Vopros.Caption = "4" And Option2.Value = True Then
b = d + 1
End If
If Vopros.Caption = "5" And Option3.Value = True Then
b = d + 1
End If
If Vopros.Caption = "6" And Option3.Value = True Then
b = d +  1
End If
If Vopros.Caption = "7" And Option3.Value = True Then
b = d + 1
End If
Label1.Caption = b
 
End Sub

должно прибавлять значение b то есть количество правильных ответов должно считать а в конце выводить, почему не считает?

Решение задачи: «Не считается результат теста: модернизировать код»

textual
                            Листинг программы 
                        

                            Private Sub NextQ_Click() 'кнопка наступне питання
STATIC B AS LONG
If Option1.Value = False And Option2.Value = False And Option3.Value = False And Option4.Value = False Then
'-------------------
                        