Программа перемножает числа и выводит результат - сумму матрицы

Dim n As Double
Dim i As Double
Private Sub Command1_Click()
Cls
n = InputBox("Сколько чисел перемножить? ")
For i = 1 To n
Print i;
Print ;
Next i
Print ;
Print i
Print ; "Умножение матрицы"
Print "---------------------------------------------"
For j = 1 To n
m = (i * j)
Print m
Next j
Print "---------------------------------------------"
Print " Подсчет матрицы"
End Sub

' Выполняет умножение одной матрицы на другую.
'
' Вход:
' A1    - первая матрица;
' A2    - вторая матрица;
' M1    - количество строк в первой матрице;
' N1    - количество столбцов в первой матрице и строк во второй;
' N2    - количество столбцов во второй матрице.
'
' Выход:
' Матрица размера M1*N2 являющаяся произведением матриц-аргументов.
'
' Примечание:
' Первая матрица должна содержать как минимум M1 строк и N1 столбцов, а вторая как минимум N1 строк и N2 столбцов.
'
Public Function MatrixMul(A1() As Double, A2() As Double, ByVal M1 As Long, ByVal N1 As Long, ByVal N2 As Long) As Double()
    On Error GoTo ErrMatrixMul
    ReDim A(0 To M1 - 1, 0 To N2 - 1) As Double
    Dim i As Long, j As Long, k As Long
    For i = 0 To M1 - 1
        For j = 0 To N2 - 1
            For k = 0 To N1 - 1
                A(i, j) = A(i, j) + A1(i, k) * A2(k, j)
            Next k
        Next j
    Next i
    MatrixMul = A
ErrMatrixMul:
End Function

Dim x(1 To 3, 1 To 5)
Private Sub Command1_Click()
Randomize
Cls
For i = 1 To 3
For j = 1 To 5
x(i, j) = Int(Rnd(1) * 20) + 1
Print x(i, j);
Next j
Print
Next i
End Sub