Calcula dia VB.

[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.