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.

[eduardo90]

yo lo he creado en consola pero de aqui creo que lo puedes utilizar y transformar

Module Module1

Sub Main()
Dim DiadelaSemana As Integer
DiadelaSemana = Now.DayOfWeek
Select Case DiadelaSemana
Case 0
Console.WriteLine("El dia de hoy es: Domingo")
Case 1
Console.WriteLine("El dia de hoy es: Lunes")
Case 2
Console.WriteLine("El dia de hoy es: Martes")
Case 3
Console.WriteLine("El dia de hoy es: Miercoles")
Case 4
Console.WriteLine("El dia de hoy es: Jueves")
Case 5
Console.WriteLine("El dia de hoy es: Viernes")
Case 6
Console.WriteLine("El dia de hoy es: Sabado")
End Select
Console.ReadLine()
End Sub

End Module

[krnes]

excelente estaba buscando algo asi, lo que pasa que yo lo tenia en vb6
dFechaHoy = Date
sNumeroDia = Weekday(dFechaHoy)
Select Case sNumeroDia
Case 1
'Domingo
dFechaHoy = dFechaHoy - 6
sFinSemana = CDate(dFechaHoy) + 6
Case 2
'Lunes
dFechaHoy = dFechaHoy
sFinSemana = CDate(dFechaHoy) + 6
Case 3
'Martes
dFechaHoy = dFechaHoy - 1
sFinSemana = CDate(dFechaHoy) + 6
Case 4
'Miercoles
dFechaHoy = dFechaHoy - 2
sFinSemana = CDate(dFechaHoy) + 6
Case 5
'Jueves
dFechaHoy = dFechaHoy - 3
sFinSemana = CDate(dFechaHoy) + 6
Case 6
'Viernes
dFechaHoy = dFechaHoy - 4
sFinSemana = CDate(dFechaHoy) + 6
Case 7
'Sabado
dFechaHoy = dFechaHoy - 5
sFinSemana = CDate(dFechaHoy) + 6
End Select

pero en .net no se por que se empieze desde el 0
muchas gracias amiguita.