Visual Basic - rango de fechas para domingos

necesito saber como puedo hacer para obtener todos los domingos desde enero de 2010 a diciembre de 2013 y estas fechas colocarlas en un msflexgrid.
gracias.
el formato de la fecha es dia/mes/año
gracias

Puedes recorrer las fechas desde 1-1-2010 con el formato W.

if format(Fecha,"W")=1, ese día es domingo
y a partir de ahí sumar siete días.
Algo asi

dim fecha as date
fecha="1-1-2010"
Do until format (fecha,"w")=1
fecha=fecha+1
loop

'fecha en este momento es domingo
'si le sumamos siete dias tenemos otro domingo, asi hasta que lleguemos a diciembre de 2013.

no me funciona como hago para decirle qu eme coloque solo los domingos en la primera columna del flexgrid, solo domingos lo necesito ocn urgencia.
muchas gracias


dim fecha as date
fecha="1-1-2010"
Do until format (fecha,"w")=1
fecha=fecha+1
i=i+1
msflexgrid1.rows=i+1
msflexgrid1.textmatrix(i,0)=fecha
loop