carfa faça o seguinte coloque 2 text em um forma e um timer e cole isso lah
Private Sub Form_Load()
Timer1.Interval = 1000
End Sub
Private Sub Timer1_Timer()
Text1.Text = Time
If Text1.Text = Text2.Text Then
MsgBox " chegou a Hora"
End If
End Sub
depois vc digita a hora na text2 exemplo 12:23:25
espero ter ajudado