Date Functions VisualBasic Script

Sub dateDemo9()
   Debug.Print MonthName(Month(Date))
End Sub