Reminder in my style.

RemDone= False
Set obj= CreateObject("WScript.Shell")
Do While Not RemDone    
    If UCase(MonthName(Month(Date), True))="JUL" And Day(Date)=20 And (Hour(Time)>=10 Or Hour(Time)<=16) Then
        MsgBox "Remind Mr. Ravi about your Sodexo Coupens for the month of Aug..",1,"Reminder about Sodexo Coupens!!"
        MsgBox "Remove the Script file from Start-up folder..", 6, "Warning!!"
        RemDone=True
        Set obj= Nothing
        Exit Do
    Else
        WScript.Sleep 360000        
    End If
Loop