Excel VisualBasic Script

Sub Main5()
   Debug.Print "Today's date is: " & Date
   Debug.Print "The month is: " & Month(Date)
End Sub