Timestamp VBA - milidetik
Public Function TimeInMS() As String
'The error is +/- 15 ms
TimeInMS = Strings.Format(Now, "dd-MMM-yyyy HH:nn:ss") & "." _
& Strings.Right(Strings.Format(Timer, "#0.00"), 2)
End Function
thaVBAGuy