Sleep function problem

[grntrnr]

I have tried to make the following 'sleep' code operate. It did once, but not now. What am I doing wrong?

Public dtBaseEventTime As Date
Public Sub Main()
dtBaseEventTime = "00:00:05"
Again:
SleepBaseEventTime
GoTo Again
End Sub
Public Sub SleepBaseEventTime()
MsgBox ("Sleep"), vbInformation, "Intuitor"
Application.OnTime Now + TimeValue("00:00:05"), "SleepBaseEventTime"
MsgBox ("Wake"), vbInformation, "Intuitor"
Stop
End Sub

 

[grntrnr]

I have tried to make the following 'sleep' code operate. It did once, but not now. What am I doing wrong?

Public dtBaseEventTime As Date
Public Sub Main()
dtBaseEventTime = "00:00:05"
Again:
SleepBaseEventTime
GoTo Again
End Sub
Public Sub SleepBaseEventTime()
MsgBox ("Sleep"), vbInformation, "Intuitor"
Application.OnTime Now + TimeValue("00:00:05"), "SleepBaseEventTime"
MsgBox ("Wake"), vbInformation, "Intuitor"
Stop


End Sub

This code is kind of messy, but the point is it doesn't pause 5 seconds