Hi

Is there some way to duplicate informations of the array , I tried to use a example found using copy memory, but in example only copy data array to other. I would like some as:

Myarray (0) = "A00"
Myarray (1) = "A00"
Myarray (2) = "B00"
Myarray (4) = "AB0"

When I call the function to duplicate array , I would like return me a array as:
Myarray (0) = "A00"
Myarray (1) = "A00"
Myarray (2) = "B00"
Myarray (4) = "AB0"
Myarray (5) = "A00"
Myarray (6) = "A00"
Myarray (7) = "B00"
Myarray (8) = "AB0"

See the code below , I tried, but not found a way

Code:
Option Explicit
Private Declare Sub CopyMemory Lib "kernel32" _
          Alias "RtlMoveMemory" ( _
          dest As Any _
        , source As Any _
        , ByVal bytes As Long)
Dim MyArr() As Long
Private Sub redimFast( _
          ByRef theArray() As Long _
        , ByVal LowBound As Long _
        , ByVal UpperBound As Long)
' copy A() into B()
Dim tmpArr() As Long
ReDim tmpArr(UpperBound - LowBound)
CopyMemory tmpArr(0), theArray(LowBound), ((UpperBound - LowBound + 1) * Len(theArray(0)))

Erase theArray
theArray = tmpArr
End Sub
How to do it when my type as string