Вычислить произведение i-ой, j-ой и третьей строк матрицы - VB

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

Задача:Вычислить произведение i-ой, j-ой и третей строк матрицы А размерности M*N. У меня почти получилось, но где-то ошибка, возможно в формуле . Я не знаю как в формуле вычислить произведение i-ой, j-ой строк

Option Base 1
Private Sub Command1_Click()
Dim m As Integer, n As Integer
Dim p As Single, a() As Integer, i As Integer, j As Integer
m = InputBox("Введите количество строк матрицы")
n = InputBox("Введите количество столбцов матрицы ")
ReDim a(m, n)
For i = 1 To m
For j = 1 To n
a(i, j) = InputBox("a(" & i & "," & j & ")")
Next j
Next i
p = 0
For j = 1 To n
p = p + a(i, j) + a(3, j)
Next j
Print "Исходная матрица"
For i = 1 To m
Print
For j = 1 To n
Print Format(a(i, j), "0.00");
Next
Next
MsgBox "Произведение равно" & p
End Sub

Решение задачи: «Вычислить произведение i-ой, j-ой и третьей строк матрицы»

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

                            Option Base 1
Private Sub Command1_Click()
Dim M As Integer, N As Integer
Dim A() As Long, B() As Long, i As Integer, j As Integer, k As Integer
M = 5: N = 7 'можно вводить
ReDim A(M, N)
ReDim B(N)
Debug.Print "Исходная матрица"
Randomize
For i = 1 To M
    For j = 1 To N
        A(i, j) = 40 * Rnd()
        Debug.Print A(i, j),
    Next j
    Debug.Print
Next i
i = 1: j = 4 'можно вводить
Debug.Print "Строка с произведениями"
For k = 1 To N
    B(k) = A(i, k) * A(j, k) * A(3, k)
    Debug.Print B(k),
Next k
End Sub
                        