Copy an array *SOLVED*

[robbedaya]

first of all if you create an array like you do

dim Arry() as string
redim arry(3)

you create an array of 3 strings: arry(0), arry(1), arry(2) and arry(3)
if you want to create an arry wit only indexes 1 to 3
use this redim arry(1 to 3) or do it your way but add on on top of your module:

option base 1

to copy an array just try this:

NewArry = Arry

it works like a charm:

So:

Dim Arry() As String
 
ReDim Arry(3)
 
Arry(1) = "Jim"
Arry(2) = "Bob"
Arry(3) = "Harry"
 
Dim NewArry() As String
ReDim NewArry(UBound(Arry))
 
NewArry = Arry