Скопировать массив можно поэлементно, а можно, используя API одним махом скопировать содержимое одного массива в другой:

Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" _
(pDst As Any, pSrc As Any, ByVal ByteLen As Long)

Private Sub Command1_Click()
Dim a(10) As Integer
Dim b(10) As Integer
a(5) = 10
' Копируем содержимое массива a в массив b
' Число 22 указываем число копируемых байт
' так как размерность массива 10 плюс нулевой элемент,
' то всего массив имеет 11 значений
' тип Integer занимает 2 байта т.е. 11*2=22
' Если бы был тип Long, то было бы 44 и т.д.
CopyMemory ByVal VarPtr(b(0)), ByVal VarPtr(a(0)), 22
MsgBox b(5)
End Sub