>>992
適切かねえ...
以下のプログラムのコメントに違和感はない?

Sub test1(ByVal t As Long)
'指定秒数待機
Sleep 1000 * t
End Sub

Sub test2()
'何もしないでボーッと待機
DoEvents
End Sub