Найти и вывести номер строки в которой единиц больше чем нулей - VB

Sub Task(A() as integer,m as integer, n as integer)
   For i%=1 to m
        s%=0
        For j%=1 to n
             s%=s%+A(i%,j%)
             if s% > ceil(n / 2) then
               debug.print i%
               exit for
             end if
        Next j%
   Next i% 
End Sub