What your after is a stopwatch object:

Code:
Dim objStopWatch As Stopwatch = Stopwatch.StartNew
... do stuff
objStopWatch.Stop()
MsgBox objStopWatch.ElapsedMilliseconds.ToString