В массиве чисел С1, С2, …, С n найти первое число больше заданного числа - VB

Function FistGt(C() as integer, c0 As integer) As integer
  for i%=1 to Ubound(C,1)
      If C(i%)> c0 then
         FirstGt=C(i%)
         Exit Function
      End if
  Next i%
  Error 666
End Function