Creating an Application Event

 Option Explicit

Dim AppClass As New EventClass

Private Sub Workbook_Open()
    Set AppClass.App = Application
End Sub

Public WithEvents App As Application

Private Sub App_WorkbookOpen(ByVal Wb As Workbook)
   Call ShowQuote
End Sub

Dim dateStartTime As Date, dateEndTime As Date
Sub ShowQuote()
    dateStartTime = #2:52:00 PM#
    dateEndTime = #2:53:00 PM#
       If Time >= dateStartTime Then
            Do Until Time >= dateEndTime
                UserForm1.Show
            Loop
        End If
        If Time < dateStartTime Then
            'UserForm1.Hide
            MsgBox "Can I stay here and train with you Mr. PoPo?"
        End If
        If Time > dateEndTime Then
            MsgBox "         It works!!"
        End If
    End Sub

Private Sub OKButton_Click()
'Unload Me
End Sub
Private Sub UserForm_Activate()
Dim Quote As String
Quote = "   Abandon hope all ye who enter here"
lblNow.Caption = Quote
End Sub