Visual Basic - DIAS DE UN MES

NECESITO OBTENER LOS DIAS DE UN MES A DETALLE, POR EJEMPLO: ENERO TIENE 31 DIAS Y QUE SE GUARDEN LOS DATOS DEL MES EN UNA TABLA ASI: 01-01-08 , 02-01-08, 03-01-08......HASTA LLEGAR AL 31-01-08 , GRACIAS DE ANTEMANO

Sub DiasAño()

Dim MiFecha as Variant
Dim MiMes as byte
MiMes=1
MiFecha="01-" & MiMes& "-2008"
Do Until MiMes>12

MiFecha=CDate(Format(MiFecha,"dd-mm-yyyy"))

Do Until Month(MiFecha)<>MiMes
MiFecha=MiFecha+1
Loop

MiMes=MiMes+1

Loop

MiMes=1
End Sub

Nota: Cuando sale de aqui se ha reecorrido todos los dias del año del 2008 y MiFecha Valdra 01/01/2009 y como MiMes valdra 13 se le vuelve a poner en 1 para el año 2009 en la variable MiFecha se van obteniendo cada uno de los dias de los respectivos meses
Espero que te sirva??????