Date Functions VisualBasic Script

Sub Main6()
   Debug.Print "Today's date is: " & Date
   Debug.Print "The name of the month is: " & MonthName(Month(Date))
End Sub