Как засечь время выполнения прцоедуры какой-нибудь?

dim i as long
i=timer
runsp
msgbox timer-i

Private Declare Function timeGetTime Lib "winmm.dll" () As Long

Sub SkokaVremya()

MsgBox timer 'время прошедшее с полуночи в сек

MsgBox timeGetTime 'время прошедшее с момента запуска винды в мсек

End Sub