Allora considerando che non ci sono form (mah ...) sara' un modulo

Puoi fare cosi'

A-puoi creare un array e resizarlo con questa funzione
codice:
Public Sub AResize(ByRef arrArray As Variant, _
        ByVal intSize As Integer, Optional _
        ByVal boolClear As Boolean)
    ' Resize the array to a new given size
    If boolClear Then
        ' Clear all existing items
        ReDim arrArray(intSize)
    Else
        ' Preserve all existing items
        ReDim Preserve arrArray(intSize)
    End If
End Sub
oppure se peschi da database

codice:
for i=1 to RS.RecordCOunt
'qui crei l' array
next i
era quello che volevi?