Sub Click(Source As Button) Dim workspace As New NotesUIWorkspace Messagebox workspace.CurrentCalendarDateTime,, _ "Date and time for the current region" End Sub
See Also