Copy an array *SOLVED*

[kurtsimons]

is there is easier way to copy array values?

dim Arry() as string

redim arry(3)

arry(1)="Jim"
arry(2)="Bob"
arry(3)="Harry"

Dim NewArry() as string

redim newarry(ubound(arry))

for a= 0 to ubound(newarry)
newarry(a)=arry(a)
next a