To use actual time; you need to use a timer with 1000 millisecond interval, if we use the variables THour, TMinute, TSecond for Alarm time then the code will be:
Private Sub Timer1_Timer()
If Hour(Time) = THour AND Minute(Time) = TMinute AND Second(Time) = TSecond THEN
Msgbox "Alarm!" 'or whatever you want to do
End IF
Drycola
Junior Poster in Training
74 posts since Aug 2008
Reputation Points: 20
Solved Threads: 9