API宣言がいるんだけどいいかな？
たぶん一番正確なタイマー。timeGetTimeの代わりに使う。

Private Declare Function QPCounter Lib "kernel32" Alias "QueryPerformanceCounter" (X As Currency) As Boolean
Private Declare Function QPFrequency Lib "kernel32" Alias "QueryPerformanceFrequency" (X As Currency) As Boolean
Function GetTime() As Double
'戻り値の単位はミリ秒。
Dim a As Currency, b As Currency
QPCounter a
QPFrequency b
GetTime = a / b * 1000
End Function