TimeStartSO

Private Declare Function osQueryPerformanceCounter _
Lib "Kernel32" Alias "QueryPerformanceCounter" _
(lpPerformanceCount As Currency) As Long
Private Declare Function osQueryPerformanceFrequency _
Lib "Kernel32" Alias "QueryPerformanceFrequency" _
(lpFrequency As Currency) As Long
Public Function vbTimer() As Single
Dim varX As Variant, varY As Variant
osQueryPerformanceFrequency varX
osQueryPerformanceCounter varY
vbTimer = varY / varX
End Function