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

Private Sub Command1_Click()
Dim A() As Single, N As Integer
Dim I%, J%, K%, As Single
Dim T As Integer
N = InputBox("введите число строк")
ReDim A(1 To N, 1 To N)
K = 0: Randomize
Fl1.Rows = N + 1: Fl1.Cols = N + 1
For I = 1 To N
For J = 1 To N
A(I, J) = Round(Rnd * 100 - 50)
If A(I, J) > 0 And I + J > N + 1 Then K = A(I, J)
Fl1.TextMatrix(I, J) = A(I, J)
Next J, I
Picture1.Cls
Picture1.Print "   матрица"
For I = 1 To N
For J = 1 To N
List1(J - 1).List(I - 1) = A(I, J)
Form1.Picture1.Print "  "; Format(A(I, J), "###0");
Next J
Picture1.Print
Next I
MsgBox "Кол-во полож. чисел" & N, vbMsgBoxRtlReading + VbInmormation, "прочти"
Text1.Text = ""
For I = 1 To N
T = ""
For J = 1 To N
T = T + Str(A(I, J)) & "   "
Next J
Text1.Text = Text1.Text & T & vbCrLf
Next I
Label3.Visible = True
Label3.Caption = "кол-во полож. чисел" & N
End Sub