In Visual Basic, it is not possible to measure time with more precision than one second. This code allows the user to measure time passed in increments less than one second (tenths, hundredths, or milliseconds, depending on the format string).
Public Function ShowTime() As String Dim dCurSeconds As Double Dim dHours As Double Dim dMinutes As Double Dim dSeconds As Double dCurSeconds = Timer() ' Returns the number of seconds elapsed since midnight dHours = dCurSeconds 3600 ' Keeps the number of hours elapsed since midnight dMinutes = (dCurSeconds - dHours * 3600) 60 ' Keeps the number of minutes elapsed in last hour dSeconds = dCurSeconds - dHours * 3600 - dMinutes * 60 ' Keeps the number of seconds elapsed in last minute ' and the number of miliseconds ShowTime = dHours & ":" & dMinutes & ":" & Format(dSeconds, "00.000")End Function