Option Explicit 'Это чтоб переменные всегда были определины. иначе ошибка

Private Sub Command1_Click()
Dim Matrica1( 2 ,  3 ) As Integer 'Определили переменную Matrica1 - это двумерный массив, если спросят :)
Dim Matrica2( 2 ,  3 ) As Integer 'Определили переменную Matrica2 - это также двумерный массив
Dim Matrica3( 2 ,  3 ) As Integer 'Новая матрица, которую по заданию нужно получить, опять же двумерный массив
Dim i As Byte, j As Byte, toPrint As String 'Первые 2 переменных - счетчики в циклах, toPrint - строковая переменная чтоб вывести матрицу :)

'Исходная матрица 1 - наполняем элементы
Matrica1( 1 ,  1 ) = "1"
Matrica1( 1 ,  2 ) = "2"
Matrica1( 1 ,  3 ) = "3"
Matrica1( 2 ,  1 ) = "4"
Matrica1( 2 ,  2 ) = "5"
Matrica1( 2 ,  3 ) = "6"

'Исходная матрица 2 - наполняем элементы
Matrica2( 1 ,  1 ) = "7"
Matrica2( 1 ,  2 ) = "8"
Matrica2( 1 ,  3 ) = "9"
Matrica2( 2 ,  1 ) = "10"
Matrica2( 2 ,  2 ) = "11"
Matrica2( 2 ,  3 ) = "12"

toPrint = ""
For i =  1  To  2  'Цикл по рядам матрицы (в моем случае 2 ряда)
    For j =  1  To  3  'Цикл по столбцам матрицы (в моем случае 3 ряда)
        Matrica3(i, j) = Matrica1(i, j) + Matrica2(i, j) 'Сложение элементов исходных двух матриц
        toPrint = toPrint + CStr(Matrica3(i, j)) + vbTab 'Переменная для хранения результата матрицы
    Next
toPrint = toPrint + vbCrLf 'Переход на следующую строку матрицы
Next

Form1.Print toPrint 'Выводим матрицу на форму

End Sub

Private Sub Command2_Click()
Me.PrintForm 'Печатаем форму на принтере, если он есть
End Sub

Option Explicit 'Это чтоб переменные всегда были определины. иначе ошибка

Private Sub Command1_Click()
Dim Matrica1( 2 ,  3 ) As Integer 'Определили переменную Matrica1 - это двумерный массив, если спросят :)
Dim Matrica2( 2 ,  3 ) As Integer 'Определили переменную Matrica2 - это также двумерный массив
Dim Matrica3( 2 ,  3 ) As Integer 'Новая матрица, которую по заданию нужно получить, опять же двумерный массив
Dim i As Byte, j As Byte, toPrint As String, toPrint1 As String, toPrint2 As String 'Первые 2 переменных - счетчики в циклах, переменные toPrint - строковые переменные чтоб вывести матрицы на формы :)

'Исходная матрица 1 - наполняем элементы
Matrica1( 1 ,  1 ) = "1"
Matrica1( 1 ,  2 ) = "2"
Matrica1( 1 ,  3 ) = "3"
Matrica1( 2 ,  1 ) = "4"
Matrica1( 2 ,  2 ) = "5"
Matrica1( 2 ,  3 ) = "6"

'Исходная матрица 2 - наполняем элементы
Matrica2( 1 ,  1 ) = "7"
Matrica2( 1 ,  2 ) = "8"
Matrica2( 1 ,  3 ) = "9"
Matrica2( 2 ,  1 ) = "10"
Matrica2( 2 ,  2 ) = "11"
Matrica2( 2 ,  3 ) = "12"

toPrint = ""
For i =  1  To  2  'Цикл по рядам матрицы (в моем случае 2 ряда)
    For j =  1  To  3  'Цикл по столбцам матрицы (в моем случае 3 ряда)
        Matrica3(i, j) = Matrica1(i, j) + Matrica2(i, j) 'Сложение элементов исходных двух матриц
        toPrint1 = toPrint1 + CStr(Matrica1(i, j)) + vbTab 'Переменная для хранения матрицы 1
        toPrint2 = toPrint2 + CStr(Matrica2(i, j)) + vbTab 'Переменная для хранения матрицы 2
        toPrint = toPrint + CStr(Matrica3(i, j)) + vbTab 'Переменная для хранения результата матрицы
    Next
toPrint1 = toPrint1 + vbCrLf 'Переход на следующую строку матрицы 1
toPrint2 = toPrint2 + vbCrLf 'Переход на следующую строку матрицы 2
toPrint = toPrint + vbCrLf 'Переход на следующую строку матрицы РЕЗУЛЬТАТА
Next

Form1.Print toPrint1 'Выводим матрицу 1 на форму
Form1.Print toPrint2 'Выводим матрицу 2 на форму
Form1.Print toPrint 'Выводим матрицу-результат на форму

End Sub

Private Sub Command2_Click()
Me.PrintForm 'Печатаем форму на принтере, если он есть
End Sub