Mega Code Archive

 

Categories / VisualBasic Script / Application

 

Using the Quit Event

Sub Application_Quit()     Dim strMessage As String     Select Case Format(Date, "MM/DD/YYYY")         Case "01/13/2006"             strMessage = "Next Monday is Martin Luther King Day."         Case "02/17/2006"             strMessage = "Next Monday is Presidents Day."         Case "05/26/2006"             strMessage = "Next Monday is Memorial Day."         Case "06/30/2006"             strMessage = "Next Tuesday is Independence Day." & _                 " Monday is a company holiday."         Case "09/01/2006"             strMessage = "Next Monday is Labor Day."         'other National Holidays here         End Select         MsgBox strMessage, vbOKCancel + vbExclamation, "Don't Forget..." End Sub