Something like:
Code:
Dim X As Long
X=0
Dim NewArray() As String
For I = LBound(YourArrayDim1) To UBound(YourArrayDim1)
For K = LBound(YourArrayDim2) To UBound(YourArrayDim2)
Redim Preserve NewArray(X)
NewArray(X) = YourArray(I,K)
X = X + 1
Next
Next
That's pretty elementary code, you need to add several things to it. Wrote it just off the top (or maybe bottom) of my head, so pardon me for any mistakes. That's the general outline I would suggest.
PS: Dim1 and Dim2 to be treated as the loops traversing the 1st and 2nd dimensions of the array.
.