se devi ridimensionare l'array, allora devi usare un array dinamico
dim myarray as string 'crea l'array
reDim myarray(10) 'crea l'array di 10 elementi
e con
reDim myarray(100) 'pulisci l'array e lo ridimensioni a 100 elem.

se invece nn vuoi pulirlo usi preserve

reDim Preserve myarray(100)

se poi devi fare un ciclo for, puoi usare UBound

for i = 0 to UBound(myarray)
..
next i