Merge two 1d arrays into one 2d array

[moishy101]

How can I merge two one dimensional arrays into one two dimensional array?

for example:
arrOne = Split("Apple,Orange,Grape,Lemon", ",")
arrTwo = Split("Green,Orange,Red,Yellow", ",")

arrThree should return:
("Apple", "Green")
("Orange", "Orange")
("Grape", "Red")
("Lemon", "Yellow")

[moishy101]

Sub Demo()
Dim i As Integer
Dim arrOne() As String, arrTwo() As String

arrOne = Split("Apple,Orange,Grape,Lemon", ",")
arrTwo = Split("Green,Orange,Red,Yellow", ",")

'assuming that each source has the same number of names
ReDim arrDestination(0 To 1, 0 To UBound(arrOne))

For i = 0 To UBound(arrDestination, 2)
arrDestination(0, i) = arrOne(i)
arrDestination(1, i) = arrTwo(i)
Debug.Print arrDestination(0, i), arrDestination(1, i)
Next
End Sub