Se i vettori fossero 4 da richiamare tramite j, così funziona:

codice:
Dim vector1(10), vector2(10), vector3(10), vector4(10)   ' vectorN(10)

Sub main()
N = 4
    For j = 1 To 4
        For i = 1 To 10
            stringx = "vector" & j & "(" & i & ") = " & i
            Call ExecuteGlobal(stringx)
        Next
    Next
End Sub
Oppure ragionare in termini di matrici a più dimensioni e lavorare sugli indici, seguendo il primo consiglio
vettore_i(n) --> matrice(i, n)
matrice_2d_i(n1, n2) --> matrice_3d(i, n1, n2)

Grazie