A single command.
Today = Date
Multiple instructions may be used instead of a single instruction by separating the single instructions with colons.
X = 1:Debug.Print X
If X = 1 Then Debug.Print "X=";X:Stop
Beep ' must resume from Stop to get to here