dim i
i = 0
do until i = 1
i = 0
if Hour(NOW) = "21" then
if Minute(Now) = "13" then
MsgBox "Happy"
end if
end if
loop