You can use the format function to get the numeric day of the week with the following code:

Code:
dim dayofweek as string

dayofweek = format$(now(),"w")
After this runs day of week will contain 1-7 for Sunday - Saturday.