Date Functions VisualBasic Script

Sub Main2()
   Debug.Print "Today's date is: " & Date
   Debug.Print "The day of the week is: " & Weekday(Date)
End Sub