Problema con array y una funcion

[Neuron_376]

Dim Paises(20)

Paises(0) = "Argentina"
Paises(1) = "Chile"
Paises(2) = "Peru"
Paises(3) = "Ecuador"
Paises(4) = "Uruguay"
Paises(5) = "Bolivia"
Paises(6) = "Brasil"
Paises(7) = "Brazil"
Paises(8) = "Venezuela"
Paises(9) = "Colombia"
Paises(10) = "Guatemala"
Paises(11) = "Mexico"
Paises(12) = "Costa Rica"
Paises(13) = "Estados Unidos"
Paises(14) = "Canada"
Paises(15) = "España"
Paises(16) = "Italia"
Paises(17) = "Holanda"
Paises(18) = "Francia"
Paises(19) = "Alemania"
Paises(20) = "Inglaterra"

function validar_Pais(lugar)

validar_Pais = 1

for each Pais in Paises
if InStr(lugar, CStr(Pais)) = 0 then
validar_Pais = 0
exit function
end if
next

end function

if validar_Pais(request.form("pais")) = 0 then
Response.write("El país ingresado no es válido")
else
Response.Write("El país ingresado es válido")
end if


Preubalo asi, y mira la linea que dice validar_Pais = 1

Ahi creo que esta el problema, nunca le decias que SI