No doubt i will get flamed for the use of the timer function, as everyone seems to insist it is not accurate enough, and they use the API.

But in my humble opinion, most of the people on this site seem to have forgotten the number 1 rule of programming.

Keep it simple whenever possible.

Code:
    Dim sngTime As Single
    
    sngTime = Timer
    'execute code
    MsgBox Timer - sngTime