Problemas con la función WeekDay(now) en VB

En VB, respecto a la representación de meses y días:

El primer mes es 0, y contando hacia atrás

El primer día de la semana es el domingo, y contando hacia atrás

Uso

Fecha - (Día de la semana(Fecha) - 1)

Esta expresión puede contar

Nota:

día de la semana( ) devuelve el número de la semana actual

Pero en VB, la semana corresponde a un valor numérico:

Fecha 1 2 3 4 5 6

1 2 3 4 5 6 7