Найти сумму элементов массива, меньших и равных заданному n - VB

Function Sum_less(A() as integer, h as integer) As integer
  for i%=Lbound(A,1) to Ubound(A,1)
      if A(i%)<h then Sum_less=Sum_less+A(i%)
  next i%
End function
Sub Start
Dim X(1 to 5) As integer
     X(1)=-5
     X(2)=7
     X(3)=2
     X(4)=4
     X(5)=1
     S%=sum_less(X,4)
     MsgBox Cstr(S%)
End Sub