Sub Concat()
Dim ResultArray() As Variant
Dim ArrayToAppend() As Variant
ReDim ResultArray(4)
ReDim ArrayToAppend(4)
ResultArray(0) = ""
ResultArray(1) = 2
ResultArray(2) = ""
ResultArray(3) = 25
ArrayToAppend(0) = 34
ArrayToAppend(1) = ""
ArrayToAppend(2) = ""
ArrayToAppend(3) = 17
' Code for concatenation
end sub
|