Date Functions VisualBasic Script

Sub dateDemo17()
   Debug.Print WeekdayName(Weekday(#4/1/2006#))
End Sub