Public Sub Delay(HowLong As Date)


TempTime = DateAdd("s", HowLong, Now)


While TempTime > Now


DoEvents


Wend


End Sub




Private Sub Command1_Click()


Delay 5


MsgBox "test"


End Sub