Cómo introducir varios valores en una sóla línea?

[David224]

Hola otra vez,

Tengo esta línea de código de un buscador. Dicha línea me permite eliminar ciertas búsquedas del buscador:

Código:

if buscar = "a" then str ="Por favor, introduce algo más concreto que buscar"

El tema está en que "a" es el valor que marco como no permitido en la búsqueda y te sale como resultado la frase "Por favor, introduce algo más concreto que buscar", pero me gustaría meter varios valores, por ejemplo "a", "b", "c" en una misma línea (porque meter 20 valores por ejemplo me carga de líneas el código). Pero no se la sintaxis correcta para hacerlo y que me funcione. :s

[meru-kun]

Se me ocurre esto:
if len(buscar) <=3 then str="Por favor, introduce algo más concreto"

Solo busca si se introducen más de 3 caracteres.

[emont]

puedes utilizar un Case:

Código:

select case buscar
  case "a" str ="Por favor, introduce algo más concreto que buscar"
  case "b" str ="Por favor, introduce algo más concreto que buscar"
  case "c" str ="Por favor, introduce algo más concreto que buscar"
end select

Espero te pueda servir

[AlZuwaga]

podrïas intentar con algo como esto:

Código:

NoPermitidos = "|a|b|c|d|e|...|etc|"
if InStr(1, NoPermitidos, "|" & buscar & "|", 1) <> 0 Then str ="Por favor, introduce algo más concreto que buscar"

[David224]

Muchas gracias, ahora me quedo con la que impide búsquedas inferiores a un número determinado de caracteres. Pero las otras opciones también están muy bien :)

Muchas gracias a todos de nuevo :D