Funcion Semanal

[eft0]

Saludos

Me complique un poco haciendo esta funcion, lo que necesito es hacer un ListBox
que me liste las semanas del año, algo asi como:

Semana 1: 1-1-2003 / 4-1-2003
Semana 2: 5-1-2003 / 12-1-2003
etc.
etc.

La complejidad de esto, es que yo estoy sumando 7 dias al inicio de la semana
(1-1-2003), por lo que el resultado es: 8-1-2003, pero en realidad la semana 1
de Enero del 2003, finaliza el 4-1-2003, alguien tiene esta funcion, o sabe de
algun lado desde donde guiarme ?.

Desde ya muchas gracias por la ayuda... (espero).

Esteban F.