Execution Time

Public Declare Function GetTickCount Lib “kernel32″ () As Long
Public timeStart As Long
Public timeEnd As Long

Sub Main()

     timeStart = GetTickCount
     ‘do something
     timeEnd = GetTickCount
     MsgBox timeEnd - timeStart & ” milliseconds”

End Sub