The simplest way to measure the performance of a block of code (or an entire program) is to obtain the elapsed time. This tip shows you how.
'At the top of the form:
Private Declare Function timeGetTime Lib "winmm.dll" () As Long
'At the top of the current sub:
Dim z As Long
'Start measuring the time
z = TimeGetTime()
'Debug.Print Mid$("abc", 2, 1)
'Stop measuring the time
z = TimeGetTime() - z
'MsgBox "That took " & z & " ms!"