Conseguir obtener días antes de una fecha

[luisaranda]

Hola

1-Tengo un formulario con dos campos( cuyo origen está en una tabla) con formato fecha.
Se llaman: "RPIR4", "RPIR5" ( sin comillas)

2-Pretendo que una vez he insertado la fecha en el campo "RPIR4", aparezca de forma automática la misma fecha en el campo "RPIR5", pero retrasándola al martes inmediatamente anterior.
Un ejemplo:
"RPIR4".......... 30/07/2014 ( sería míércoles), así que quiero que aparezca:
"RPIR5".......... 29/07/2014 (que sería martes)

3-Para ello he hecho el código, que pongo al final y lo he colocado en el evento Después de actualizar, de las propiedades referidas al campo "RPIR4".

4-Sin embargo, al ponerlo en marcha, no obtengo ningún resultado

5- Por favor, alguien podría decirme qué hago mal, y qué debería cambiar para obtener mi propósito?

6-Gracias!!!

7-Éste es el código que he hecho:

If Day(RPIR4) = vbMonday Then
RPIR5 = RPIR4 - 6
ElseIf Day(RPIR4) = vbtuesday Then
RPIR5 = RPIR4
ElseIf Day(RPIR4) = vbWednesday Then
RPIR5 = RPIR4 - 1
ElseIf Day(RPIR4) = vbThurday Then
RPIR5 = RPIR4 - 2
ElseIf Day(RPIR4) =vbFriday Then
RPIR5 = RPIR4 - 3
ElseIf Day(RPIR4) = vbSaturday Then
RPIR5 = RPIR4 - 4
ElseIf Day(RPIR4) = vbSunday Then
RPIR5 = RPIR4 - 5
End If
End Sub