(0) You can't forget to call “Dispose” if you need objects to be cleaned up in a specific order.

(2) Try this:

    Dim V() As Long, W() As Long, i As Long
    
    ReDim V(1 To 10)
    For i = LBound(V) To UBound(V)
        V(i) = i
    Next i
    
    W = V
    For i = LBound(W) To UBound(W)
        W(i) = 2 * i
    Next i
    
    Call MsgBox(V(5))
    Call MsgBox(W(5))