find lavest værdi i array

hej,

Denne funktion returnerer den lavest værdi fra et array.
Hvordan får jeg den til ikke at medtage'0' så outputtet bliver = 3

altså noget i stil med:

function findmin(arrNumbers)
    dim result
    result = arrNumbers(0)
    for each i in arrNumbers
      if i < result then
        result = i
      end if
    next
    findmin = result
end function
   
OutputArray=Array(0,14,20,45,25,4,33,0,3,31,22,7,4)

response.Write(findmin(OutputArray))