Show Timer Resolution

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