Option Explicit
'******************************
'* Begin Immediate mode Code *
'******************************
‘ Display the name of the event as each event is fired
MsgBox vbsEventName & " " & AppModeString(CurrentMode)
'******************************
'* End Immediate mode Code *
'******************************