HEre's how to use Querryperformance counter:
Code:
Private Declare Function QueryPerformanceCounter Lib "kernel32" (lpPerformanceCount As Currency) As Long
Private Declare Function QueryPerformanceFrequency Lib "kernel32" (lpFrequency As Currency) As Long

Dim Start as Currency, Finish as Currency, Freq as Currency

        QueryPerformanceCounter start
            'Your dealy
        QueryPerformanceCounter finish
        QueryPerformanceFrequency freq
        MsgBox CDbl(finish - start) / CDbl(freq) * 1000000
It returns the result in milliseconds but with the decimal it's accurate up to 1 microsecond.