con ReDim puoi usare una variabile

es.

a=10
Dim xy(a) ' non si puote
ReDim xy(a) ' si puote