codice:
Dim i as Integer

'Crei L'array
Dim MyArr() as String

For i = 1 to 10
  'Ridimensioni l'array tenendo in memoria il contenuto ("Preserve")
  Redim Preserve MyArr(i)
  'Assegni un valore ad un elemento dell'array
  MyArr(i) = "Valore " & i
Next i

'Ricavi il numero di elementi contenuti nell'array
Dim TotArr as Integer = Ubound(MyArr)