Display in a message box the number of seconds passed since midnight.
Sub timerDemo() Dim seconds As Single seconds = timer MsgBox (seconds) End Sub