コードの記述の違いによって処理時間にどのくらいの差が発生するかを知ることは、高速化を行うためには重要です API を使用することにより、処理時間をミリ秒単位で計測できます
Private Declare Function timeGetTime Lib "winmm.dll" () As Long
Private Sub 処理時間の計測()
Dim i_time As Long
i_time = timeGetTime()
'' 処理
MsgBox Format$(timeGetTime - i_time) & " ミリ秒"
End Sub