creati una matrice alla quale nel ciclo assegni i valori che ti servono. tipo:
dim miaMatrice() as tipoDatoCheTiServe
codice:
for i=0 to limiteMax
    if Data1 >= DataInizio AND Data1 <= DataFine then
       redim preserve miaMatrice(i)
       miaMatrice()=valoreData
    end if
next i
una cosa del genere dovrebbe bastare.