¿existe un registro que mide el tiempo de ejecucion de un programa?

[Mmc]

Declare Function GetTickCount Lib "kernel32" () As Long
....
....
....
....


Dim lTmp1 As Long
Dim lTmp2 As Long
Dim lTmp3 As Long

lTmp1 = GetTickCount()
....
....
....
Ejecutas alguna acción
....
....
....
lTmp2 = GetTickCount()



lTmp3 = lTmp2 – lTmp1

En lTmp3 tienes la diferencia del tiempo.

Nota: La unidad de operación es milisegundo.