特定ロジックにパフォーマンスの問題が発生した場合、そのロジックが何ミリ秒かかっているのか調べたいことがあると思います。しかし、普通のやり方ではミリ秒単位の時間は計測できません。検索してみたところ、IBMのフォーラムに「Timer()を使えばよい」という記述を発見しました。以下のようにすればいいみたいです。 Dim t1 As Single, t2 As Single t1 = Timer() '調査したいロジック t2 = Timer() Msgbox Format$(t2 - t1, "0.00000000") Timer() 以外にもいろいろやり方はあるみたいですが、これが一番簡単でよいですね。どこまで正確な時間が計測されているかは甚だあやしいところではありますが(^^;、パフォーマンスのチェック程度ならこれで充分だと思います。