Sub Wait()
    waitTime = 5
    Start = Timer
    While Timer < Start + waitTime
        DoEvents
    Wend
End Sub

Sub HelloWaitGoodbye()
    MsgBox ("Hello")
    Wait
    MsgBox ("Goodbye")
End Sub