Ti ringrazio per la risposta, ho trovato è:

dim com as Nome Struttura

Redim preserve com(i)

For c = 0 to com.length
Return Com
next