Где ошибка в коде - VB

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

Dim a As Integer, b As Integer, d As Integer, c As Integer
 
Private Sub Command1_Click()
a = Tomny
b = 465
c = Val(Text1.Text)
d = Val(Text2.Text)
If (a = c) And (b = d) Then
MsgBox "Г‚Г» ГЇГ°Г*ГўГ»! ГўГ®Г©ГІГЁ Гў Г±ГЁГ±ГІГҐГ¬Гі?", [vbYesNo], "Г‘ГЁГ±ГІГҐГ¬Г*Г®ГҐ Г±Г®Г®ГЎГ№ГҐГ*ГЁГҐ"
esle
MsgBox "Г‘ГЁГ±ГІГҐГ¬Г* Г§Г*ГЎГ«Г®ГЄГЁГ°Г®ГўГ*Г*Г* ГЇГ®ГЄГЁГ*ГјГІГҐ ГЇГ°Г®ГЈГ°Г*Г¬Г¬Гі Г·ГҐГ°ГҐГ§ 15 Г±ГҐГЄГіГ*Г¤ ГЁГ«ГЁ Г®Г*Г* Г±Г*Г¬Г* Г§Г*ГўГҐГ°ГёГЁГІГ±Гї", [vbCritical], "Г‘ГЁГ±ГІГҐГ¬Г*Г®ГҐ Г±Г®Г®ГЎГ№ГҐГ*ГЁГҐ"
Timer1.Enabled = True
Label3.Caption = Timer1.Interval
End If
End Sub
 
Private Sub Timer1_Timer()
End
End Sub

Решение задачи: «Где ошибка в коде»

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

                            [B]Dim a As Single[/B], b As Integer, d As Integer, c As Integer, vremya As Integer
Private Sub Command1_Click()
a = Tomny
                        