Is this what you mean?

Sub test()
    Dim Arr1() As Variant
    Dim Arr2() As Variant
    Dim Arr3() As Variant
    Arr1 = Array("A", "B", "C")
    Arr2 = Array(200, 400, 500)
    Arr3 = CombineTwoArrays(Arr1, Arr2)
End Sub

Function CombineTwoArrays(Array1() As Variant, Array2() As Variant) As Variant
    Dim Array3() As Variant
    Dim Array4() As Variant
    Dim i As Long
    Dim j As Long
    Array3 = Array(Array1, Array2)
    ReDim Array4(UBound(Array3), UBound(Array3(LBound(Array3))))
    For i = LBound(Array3) To UBound(Array3)
        For j = LBound(Array3(i)) To UBound(Array3(i))
            Array4(i, j) = Array3(i)(j)
        Next j
    Next i
    CombineTwoArrays = Array4
End Function