This...
Code:
Dim curfreq As Currency
Dim curQpc As Currency
 QueryPerformanceFrequency curfreq
 QueryPerformanceCounter curQpc
 Debug.Print "freq"; curfreq
 Debug.Print "counter"; curQpc
 Debug.Print "seconds"; curQpc / curfreq
 Debug.Print "minutes"; (curQpc / curfreq) / 60
Gives me this
Code:
freq 279305 
counter 477166730.5424 
seconds 1708.40740603426 
minutes 28.4734567672377
It's an old p4 ~2793 Mhz.