別解

諸々割愛

wait procedure

Sub wait(int_msec)
    tim_cur = Timer
    Do Until Timer > tim_cur + (int_msec / 1000)
    Loop
End Sub

call side

Sub sample()
    Debug.Print "Executing"
    Call wait(6000)
    Debug.Print "Done"
End Sub

で対応しました。

どう失敗したか

【Sleep関数】
　ESC連打が効かない。
　32Bit 64Bitを毎回考える。
　モジュール前にPrivate？Declare？PtrSafe？ちょっと疲弊気味。
　
【Application.Waitメソッド】
　Application.Wait Now() + 6000 / 86400000
　等やっていたがやはり　ESC連打が効かない

【DoEvents関数】
　応答無しが多い

【OnTimeメソッド】
　記述の冗長

懸念

実行端末の自動時刻補正が効いた瞬間にこのプロシージャ実行していた時の検証をやってない。

雲つかむみたいな瞬間だな・・・。
Now()とかではなくTimerだから大丈夫か・・・
時刻っていつ補正されてるのか・・・。常時？