Here's a simple little function that demonstrates converting a date into it's weekday name.
Hope this helps!
-----------------
Function WeekdayFromDate()
varDate = InputBox("Enter a date:")
varWeekdayNum = DatePart("w", varDate)
varWeekdayName = WeekdayName(varWeekdayNum)
MsgBox (varDate & " is on " & varWeekdayName)
End Function