Оъединение двух массивов в один

Private Sub Command1_Click()
Dim A(1 To 100, 1 To 100), B(1 To 100, 1 To 100), C(1 To 100, 1 To 100), n, m, l, i, j, k As Integer
n = Val(InputBox("Введите кол-во строк в матрие А"))
l = Val(InputBox("Введите кол-во строк в матрице B"))
m = Val(InputBox("Введите кол-во столбцов в А и В"))
Print "A="
For i = 1 To n
For j = 1 To m
A(i, j) = Int(Rnd * 10)
Print A(i, j); vbTab;
Next j
Print
Next i
Print "B="
For k = 1 To l
For j = 1 To m
B(k, j) = Int(Rnd * 10)
Print B(k, j); vbTab;
Next j
Print
Next k

Private Sub Command1_Click()
Dim A(), B(), C(), n, m, l, i, j, k As Integer
n = Val(InputBox("Введите кол-во строк в матрие А"))
l = Val(InputBox("Введите кол-во строк в матрице B"))
m = Val(InputBox("Введите кол-во столбцов в А и В"))
ReDim A(n, m), B(l, m), C(n + l, m)
Print "A="
For i = 1 To n
For j = 1 To m
A(i, j) = Int(Rnd * 10)
C(i, j) = A(i, j)
Print A(i, j); vbTab;
Next j
Print
Next i
Print: Print "B="
For k = 1 To l
For j = 1 To m
B(k, j) = Int(Rnd * 10)
C(n + k, j) = B(k, j)
Print B(k, j); vbTab;
Next j
Print
Next k
Print: Print "C="
For k = 1 To n + l
For j = 1 To m
Print C(k, j); vbTab;
Next j
Print
Next k
End Sub