Timestamp

Dim s As Long = DateTime.Now.Ticks
MsgBox("Time: " & (s * 10 ^ -9) & " seconds")

*The Ticks property is to get 100 nanosecond intervals since 1 January 1, 00:00:00.

Source: the scripts developer network