Дана последовательность из 70 целых чисел. Определить, со скольких отрицательных чисел она начинается - VB

Sub Task(X() as integer)  
  for i%=1 to Ubound(X,1)
      if X(i%)>=0 then
        Debug.print i%-1
        Exit sub
      End if
  Next i%   
  Debug.print Ubound(X,1)
End Sub