Option Explicit

Option Compare Binary

 

Sub ShowTimerResolution()

 

  Dim i As Long

  Dim t0 As Double, t1 As Double

 

  t0 = Timer

  For i = 1 To 25

    Do: t1 = Timer: Loop Until t1 <> t0

    Debug.Print Format$(t0, "0.000000"); " / "; _

      Format$(t1, "0.000000"); ": "; _

      Format$((t1 - t0), "0.000000"); " ("; _

      Format$(Round(1 / (t1 - t0)), "0"); ")"

    t0 = t1

  Next i

 

End Sub