Example - Time Function

Sub Main()
   x = Time$(Now)
   MsgBox "Current time: " & x
End Sub