Calcula dia VB.

[GUAPOBEN]

Hola a toda la banda, ya tiene tiempo que no ando por estos rumbos.
Espero q esten super bien.

Tengo un pequeño problema.

Estoy tratando de hacer lo siguiente en Visual Basic:

Un programa q me calcule el día de la semana en la que estamos y dependiendo del dia me retrase a otro dia de la semana. x Ejemplo.

Se maneja en dos fechas.
Si me calcula que el dia de hoy es Lunes entonces me retrase en la fecha 1 al Viernes y la fecha 2 al Viernes.
Si me calcula que el dia de hoy es Martes entonces me retrase en la fecha 1 al Sabado y la fecha 2 al Lunes.
Si me calcula que el dia de hoy es Miercoles me retrase la fecha 1 y la fecha 2 al Martes.

Alguen podria ayudarme?
Yo lo aterrise de la siguiente forma para entenderle pero no me queda.

Lunes /* Viernes
{
FechaInicio = (To_day Lunes - 3 ) = Viernes
FechaFin = (To_day Lunes - 3) = Viernes
}
Martes /* Sabado, Domingo y Lunes
{
FechaInicio = (To_day Martes - 3 ) = Sabado
FechaFin = (To_day Martes - 1) = Lunes
}
Miercoles /* Martes
{
FechaInicio = (To_day Miercoles - 1 ) = Martes
FechaFin = (To_day Miercoles - 1) = Martes
}
Jueves /* Miercoles
{
FechaInicio = (To_day Jueves - 1 ) = Miercoles
FechaFin = (To_day Jueves - 1) = Miercoles
}
Viernes /* Jueves
{
FechaInicio = (To_day Viernes - 1 ) = Jueves
FechaFin = (To_day Viernes - 1) = Jueves
}
Sabado, Domingo /*
{
Fecha inicio = Q no ejecute
Fecha Fin = Q no ejecute
}

Yo lo intente hacer con un Case y Weekday pero no me sale.

De ante mano muchas gracias.