Dim startTime As Date = Now
' Run the process that is to be timed.
Dim runLength As Global.System.TimeSpan = Now.Subtract(startTime)
Dim millisecs As Integer = runLength.Milliseconds

Dim startTime As Date = CDate("1.1.2012 00:00:00")
Dim stopptime As Date = CDate("1.1.2012 00:00:02")
 
Dim difference As Global.System.TimeSpan = stopptime.Subtract(startTime)
 
Dim millisecs_part As Integer = difference.Milliseconds '--> 0
Dim millisecs_diff As Double = difference.TotalMilliseconds '--> 2000.0