Problema con array y una funcion

[u_goldman]

Y algo asi?

Código:

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, arrPaises)
  estaEnElArreglo = false
  for i = 0 to uBound(arrPaises)
    if arrPaises(i) = lugar then
      estaEnElArreglo = true
      exit For
    end if
  next
validar_Pais = EstaEnElArreglo
end function

if validar_Pais("Camerun", Paises) then
  Response.write("El país ingresado es válido")
else
  Response.Write("El país ingresado no es válido")
end if

Salu2,