timeBeginPeriodで1にしてtimeGetTimeとかです。
あんまり細かい精度は必要ないと思うし、
こんな感じのDLL作って呼び出して計った。
Function Export FuncName() As Long
dim i as long
dim a as long
dim d as double
for i=0 to 10000000
a=a+1
d=d+1
Next
End Function