Potresti farmi un esempio?
Comunque banalmente io ho fatto come segue ma non funziona:

Dim vettorePrimo(2000) As Integer

Dim scambia(0) As Integer
contatore = 0
scambia(0) = vettorePrimo(contatore)

con la variabile contatore che vale zero in scambia(0) mi ci va sempre e solamente il primo valore dell'array vettorePrimo(contatore) anche incrementando la variabile contatore.

Come dovrei fare?
grazie.