где ошибка в коде

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

Dim a As Single, b As Integer, d As Integer, c As Integer, vremya 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], "Системное сообщение"
Else
MsgBox "Система заблокирована покиньте программу через 15 секунд или она сама завершится", [vbCritical], "Системное сообщение"
Timer1.Enabled = True
End If
vremya = 15 'Отсчёт времени начинается с 15 секунд
End Sub
Private Sub Timer1_Timer()
vremya = vremya - 1 'каждую секунду отнимаем от времени 1 секунду(интервал таймера 1000)
If vremya = 0 Then End 'когда время = 0 выходим из программы
Label3.Caption = vremya
End Sub

Option Explicit
Private Sub Form_Load()
Dim a
a = Tomny
'''''''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''''''
End Sub
Function Tomny()
Tomny = Format(Now, "dddd")
End Function

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

Option Explicit
Dim a As String, b As Integer, d As Integer, c As String, vremya As Integer
Private Sub Command1_Click()
a = "Tomny"
b = 465
c = Text1.Text

Dim a As String, b As Integer, d As Integer, c As String, vremya As Integer