Copiar el contenido de una array a otro array sin Loop

Hola a todos:
Tengo que copiar todo el contenido de un array a otro
array sin usa un loop como puedo hacerlo. Los array son identicos
Por ejemplo :

dim ArrayDestino (1 to 25, 1 to 381, 1 to 581) as long
dim ArrayOrigen (1 to 381, 1 to 581) as long

ArrayOrigen(x,x) -- >>> ArrayDestino (i,x,x)

gracias por su ayuda