Problema con la búsqueda en un array...

[mellidecai]

Buenas tengo un problemilla con una funcion en vbscript que busca un elemento en un array; nunca encuentra el elemento:
Function existe(strarray, elto)
dim i
dim esta
i=0
esta=false
while (esta=false and i<= UBound(strarray))
if elto=strarray(i) then
esta=true
end if
i=i+1
WEnd

existe=esta
End FUNCTION

Esta es la función, a ver si me podeis ayudar; no sé si existe ya algún método para los arrays que haga esto.
En la llamada a la función utilizo un array de cadena:
if (existe(cadena.split(";"), cad)) then
(...)

Un saludo!!