Как правильно настроить напоминалку? - VB

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

Поясните, пожалуйста, что я сделал неправильно (и сделал ли я хоть что-нибудь правильно), почему не работает прога. Суть такова: в инпутбокс вводится заданное время и сверяется с таймером. Когда значения одинаковы, должен вылезать msgbox, но ничего не происходит( Помогите, пожалуйста Собсно, код формы:

Private Sub Command1_Click()
Picture2.Cls
a = Format(InputBox("Г‚ГўГҐГ¤ГЁГІГҐ ГўГ°ГҐГ¬Гї Г*Г*ГЇГ®Г¬ГЁГ*Г*Г«Г®Г·ГЄГЁ"), "hh:mm:ss")
b = Text1.Text
Picture2.Print a
If Time = TimeValue(a) Then
MsgBox ("2")
End If
End Sub

Private Sub Command2_Click()
Form3.Hide
Form1.Show
End Sub
 
Private Sub Form_Load()
Timer1.Enabled = True
Label1.Caption = Time
Timer1.Interval = 1000
End Sub

Private Sub Timer1_Timer()
Label1.Caption = Format(Time, "hh:mm:ss")
End Sub

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

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

                            Private Sub Form_Load()
Timer1.Enabled = True
Timer1.Interval = 1000
End Sub
 
Private Sub Timer1_Timer()
If IsDate(Text1) Then
    If Time = CDate(Text1) Then
        MsgBox 2
    End If
End If
End Sub
                        