Dim StartTime, EndTime, Elapsed

MsgBox "Click to start timer.", vbExclamation
StartTime = Timer

MsgBox "Click to end timer.", vbExclamation
Elapsed = Timer - StartTime

' This works only if midnight does not occur between
' the two clicks.
MsgBox "Elapsed Seconds: " & Elapsed, vbInformation