Найти разность произведений элементов выше главной диагонали и элементов ниже побочной диагонали матрицы - VB

For i = 1 To 3
For j = 1 To 5
B(i, j) = Cells(2 + i, j)
Next j
Next i
 
 
TextBox2.Text = Format(P(B), "0.0000")
TextBox3.Text = Format(M(B), "0.0000")
TextBox1.Text = Format(P(B) - M(B), "0.0000")
 End Sub
Function P(B)
P = 1
For i = 1 To 3
For j = 1 To 5
If i < j Then P = P * B(i, j)
Next j
Next i
End Function
Function M(B)
M = 1
For i = 1 To 3
For j = 1 To 5
If i >= (5 - j) Then M = M * B(i, j)
Next j
Next i
End Function