Дана последовательность целых чисел . Выяснить, какое число встречается раньше — положительное или отрицательное - VB

Function check(X() as integer) As integer
  for i%=1 to Ubound(X,1)
      If X(i%)<0 then
         check=-1
         Exit for
      end if
      If X(i%)>0 then
         check=1
         Exit for
      end if
  Next i%
End Function