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

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

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

Sub abc()
  Dim A, B, C
  ReDim A(2) As Byte
  ReDim B(2) As Byte
  ReDim C(1, 2) As Byte
  
  A = Array(1, 2, 3)
  B = Array(5, 6, 8)
  
  C(0) = A ''''''ВОТ ТАК НЕЛЬЗЯ ДА?
  C(1) = B ''''''''''''''''''''''''''''''''''''''''''''''' 
  
  Debug.Print C(0, 1)
End Sub

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

Sub abc()
  Dim A, B, C
  ReDim A(2) As Byte
  ReDim B(2) As Byte
  ReDim C(1) 'As Byte
  
  A = Array(1, 2, 3)
  B = Array(5, 6, 8)
  
  C(0) = A ''''''??? ??? ?????? ???
  C(1) = B '''''''''''''''''''''''''''''''''''''''''''''''
  
  Debug.Print C(0)(0)
  Debug.Print C(1)(2)
End Sub