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

Private Sub Command1_Click()
Form1.Cls
 
Dim a%(5, 5)
For i = 1 To 5
For j = 1 To 5
 a(i, j) = (Rnd(1) * 10 - 2) \ 1
 Print a(i, j);
Next j
Print
Next i
 
Dim k%, l%
l = 0
For i = 1 To 5
k = 0
For j = 1 To 5
 If a(i, j) >= 0 Then k = k + 1
Next j
If k = 5 Then l = l + 1
Next i
Print "strok = " & l
 
End Sub