StopWatch Object

The stopwatch can accurately measure time periods. The resolution depends on the computer hardware, but should more than a millionth of a second.

Set sw = CreateObject("Toolsack.Stopwatch")

MsgBox "The resolution of this stopwatch is to the nearest " & sw.Resolution & " of a second"

sw.Start

For i = 1 To 1000

a = 1 + 2

MsgBox "A loop with one thousand additions took " & sw.Lap & " seconds"

sw.Start

MsgBox "Press OK now!"

t = sw.Stop

MsgBox "You took " & t & " seconds to press the button"