Как создать двумерный массив из двух одномерных - VB

Формулировка задачи:

Даны два одномерных массива по 3 елемента, надо составить двумерный массив 2 на 3, в первом столбце которого размещалось произведение соответствующих елементам двух заданых массивов, а во втором - квадраты елементов 1го массива. Вот то что написал, но как сделать двумерный не знаю, прошу помощи!

Option Base 1
Private Sub Command3_Click()
Dim A(3), B(3)
For i = 1 To 3
 A(i) = Val(InputBox("Vvedi A"))
 B(i) = Val(InputBox("Vvedi B"))
   PR = A(i) * B(i)
   KV = A(i) ^ 2
Next
End Sub

Решение задачи: «Как создать двумерный массив из двух одномерных»

textual
                            Листинг программы 
                        

                            Option Explicit
'!!!OPTION BASE 0 '!!!
 
Sub abc()
  Dim A, B, C, I
'  ReDim A(2) As Byte
'  ReDim B(2) As Byte
  
  A = Array(1, 2, 3)
  B = Array(5, 6, 8)
  ReDim C(1, 2) As Byte
  For I = 0 To 2
    C(0, I) = A(I) ''''''??? ??? ?????? ???
    C(1, I) = B(I) '''''''''''''''''''''''''''''''''''''''''''''''
    Debug.Print C(0, I), C(1, I)
  Next I
End Sub
                        