inarray - how many times

i have the following function to determine if a string is in an array.
can someone help me fix it to instead of returning true/false it should return the amount of times it exists in the array. (and 0 if it doesn't exist)

Function InArray(strValue)
Dim i
For i = 0 to UBound(aracrust)
If selCriteria(i,1) = cstr(strValue) Then
InArray = TRUE
Exit Function
End If
Next
InArray = FALSE
End Function

Function InArray(strValue)
Dim i
InArray = 0
For i = 0 to UBound(aracrust)
If selCriteria(i,1) = cstr(strValue) Then
InArray = InArray + 1
End If
Next
End Function

i took it out of the function as it was erroring

but

InArray = 0
For i = 0 to UBound(aracrust)
If aracrust(i) = cstr(sacrust) Then
InArray = InArray + 1
response.write "<font color=red>" & sacrust & "found" & inarray
End If
Next

now if it exists it's always returning 1 and never larger - any idea why?

cause you'll never see the total. Move the response.write out of the for..next loop

HTH, Tom