найти произведение отрицательных элементов под главной диагональю

[inflamedparadox]

Матрица действительная квадратная 5x5
написал код, но он не работает.

D = 0
For i = 1 To 5
For j = 1 + i To 5
If A(i, j) < 0 Then 
  If D=0 then D=A(i, j) else D = D * A(i, j)
EndIf
Next j
Next i
Label1 = D

нужно найти произведение отрицательных элементов под главной диагональю, но у меня другое значение получается 4760640. верное значение= -149760. значит, код неправильный?
Помогите, пожалуйста, написать правильный код