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

Summa=0
L= LBound(a) 'нижняя граница массива
Max = L 'номер максимального значения
Min = L '
For i=L to UBound(a)
  Summa=Summa(i) + A(i)
  If A(Max)<A(i) Then Max=i
  If A(Min)>A(i) Then Min=i
Next i
tmp=A(Max)
A(Max)=A(Min)
A(Min)=tmp