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

Function PMin(X() as long) as long
  min&=X(1)
  pmin=X(1)
  For i%=2 to Ubound(X,1)
       If X(i%) = min& then 
          pmin=pmin*X(i%)
       elseIf X(i%) < min& then
          min&=X(i%)
          pmin=X(i%)
       end if
  Next i%
End Function