Получить число отрицательных элементов последовательности - VB

Sub Task(A() as integer)
      neg%=0
      pos%=0
      zer%=0
      For i%=Lbound(A,1) to Ubound(A,1)
           if A(i%)=0 then 
              zer%=zer%+1
           elseIf A(i%) < 0 then
              neg%=neg%+1
           else
              pos%=pos%+1
           end if
      Next i%
      Debug.print "Положительных: ";pos%
      Debug.print "Нулей: ";zer%
      Debug.print "Отрицательных: ";neg%
End Sub