Função Now
Retorna a data e hora atual do sistema como um valor Date.
A função Now calcula a hora com milissegundos, mas retorna a hora em segundos.
Now
Data
Sub ExampleNow
MsgBox "São " & Now
End Sub
REM Temporização em milissegundos
Sub ExampleNowDouble
Dim myTime As Double
myTime = now
MsgBox "Agora são " & format(myTime, "yyyy-mm-dd HH:MM:SS.000")
End Sub