Returns the number corresponding to the weekday represented by a serial date number that is generated by the DateSerial or the DateValue function.
Number: Integer expression that contains the serial date number that is used to calculate the day of the week (1-7).
The following example determines the day of the week using the WeekDay function when you enter a date.
Dim sDay As String
REM Return and display the day of the week
Select Case WeekDay( Now )
msgbox "" + sDay,64,"Today is"