To find week day by giving date as input

option explicit
dim x, y

x=inputbox("Enter date")
x=cdate(x)
y=weekday(x)
Select Case y

Case 1
msgbox("sunday")
Case 2
msgbox("Monday")
Case 3
msgbox("Tuesday")
Case 4
msgbox("Wednsday")
Case 5
msgbox("Thursday")
Case 6
msgbox("Friday")
Case 7
msgbox("Saterday")
End Select