Application VisualBasic Script

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