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

Вот так:

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