Una matrice con i giorni del mese e la procedura per compilarla

Ora mi serve una procedura (ossia un metodo) che mi compili un array di date con tutti i giorni di un mese.
La metto in un modulo. Potrei provare ad "esporre" l'array come proprietà del modulo stesso...
Rimetto in pratica i concetti che ho elaborato recentemente...

Module Funzioni
    Public giorniDelMese As Date()
    Sub compilaMese(ByVal mese As Integer, ByVal anno As Integer)
        Dim data As Date = CDate("01/" & mese & "/" & anno)
        Dim dataStart As Date = data
        Dim contatore As Integer = 0
        Do
            ReDim Preserve giorniDelMese(contatore)
            giorniDelMese(contatore) = data
            data = data.AddDays(1)
            If data.Month <> dataStart.Month Then Exit Do
            contatore += 1
        Loop
    End Sub
End Module

Questa procedura compila la matrice giorniDelMese che è una proprietà del modulo Funzioni
Ora uso questa procedura dal form di inizio, dall'evento Load del form:

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        compilaMese(8, 2012)
        For n = 0 To giorniDelMese.Length - 1
            Debug.Print(giorniDelMese(n))
        Next
    End Sub

Questo codice dovrebbe scrivermi sulla finestra immediata tutte le date del mese di agosto del 2012 (che la procedura compilaMese del modulo Funzioni accetta come parametri).
Ecco copiato e incollato il contenuto della finestra di debug dopo l'esecuzione del programma:

01/08/2012
02/08/2012
03/08/2012
04/08/2012
05/08/2012
06/08/2012
07/08/2012
08/08/2012
09/08/2012
10/08/2012
11/08/2012
12/08/2012
13/08/2012
14/08/2012
15/08/2012
16/08/2012
17/08/2012
18/08/2012
19/08/2012
20/08/2012
21/08/2012
22/08/2012
23/08/2012
24/08/2012
25/08/2012
26/08/2012
27/08/2012
28/08/2012
29/08/2012
30/08/2012
31/08/2012

Riuscito!