Here's a wee function to simplify your Wait method. Add the DoWait code as a separate sub and call it with the line "DoWait x", where x is the delay in seconds that you want.

Sub Test()
Tm = Format(Now(), "hh:mm:ss")
DoWait 3
MsgBox "Time up! " & Tm & " - " & Format(Now(), "hh:mm:ss")
End Sub
 
Sub DoWait(Secs As Integer)
Application.Wait Now() + Secs / 24 / 3600
End Sub