Можно в необходимых для проверки функциях и процедурах использовать ф-цию Timer для получения продолжительности их выполнения.
Например, при начале выполнения процедуры пишешь:
dim sngStart as Single
sngStart = Timer
В конце выполнения:
dim sngFinish as Single
sngFinish = Timer
А время выполнения получаешь в секундах:
dim sngTime as Single
sngTime = sngFinish - sngStart
P.S. Только процедура должна уложиться в сутки

,
а то Timer в полночь обнуляется.
P.S.S. После отладки (ведь это необходимо для отладки в реальных условиях) все это заремарить.
Понимаешь? (с)Б.Ельцин.