１秒間隔にする仕方を教えてください。 (ID:90922)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 Public Sub Wait() For t = 1 To 400000 DoEvents Next t End Sub っていうwaitメソッド作ったんですけど、うまく１秒間隔になりません。 たぶん、400000 の所の数を変えればいいとおもうんですが、どうすればいいでしょうか？どなたか教えてください。お願いします。