VB 6.0 Alarm

Evet Arkadaşlar Merhaba Bugünün Yemek Tarafi VB 6.0 Alarm Yapma

Malzemeler;
1Command Button 1Text Box 1 Timer 1 label

Kodlar;

Private Sub Command1_Click( )
Dim sor
sor = InputBox("Lütfen alarm saatini yazın :","Alarm" )
Text1.Text = sor
End Sub

Private Sub Form_Load( )
Text1.Locked = True
Text1.Text = ""
Timer1.Enabled = True
Timer1.Interval = 1
End Sub

Private Sub Timer1_Timer( )
Label1.Caption = Time
If Label1.Caption = Text1.Text Then
MsgBox "Zaman Doldu...!"
End If