Quello che sta cercando di spiegarti Grumpy e che potresti prelevare l'intero del giorno della tua data per sapere poi l'equivalente del giorno della settimana. cmq potresti fare anche cosi se non vuoi utilizzare il format.

codice:
Dim giorno As String
giorno = WeekdayName(Weekday(Now) - 1)
MsgBox giorno
codice:
Dim giorno As String
giorno = WeekdayName(Weekday(Now), , vbSunday)
MsgBox giorno