puoi usare la sintassi ReDim con l'opzione PRESERVE per mantenere i dati già inseriti nella matrice.

Puoi usarla soltanto nelle matrici monodimensionali

codice:
Dim x() as TipoDati
dim i as integer
i=0
While ...
   Redim Preserve x(i) = ....
   x = x+1
End While