Visual Basic - cadena de valores

hola a todos y gracias por la ayuda que me puedan brindar .. el problema es es siguente necesito establecer usando el IF ELSE ENDIF que de acuerdo a x numero de valores cumpla con la condiciones y me permita simplificar el IF
Es decir

IF CODIGO="1047" OR CODIGO="1048" OR CODIGO="1049 THEN
A=A+1
ENDIF
lo que busco en como en el fox

IF CODIGO$="104710481049" THEN
A=A+1
ENDIF

la verdad que e buscado en los foros y demas y nada... si hubiera alguna forma de hacer esto en los eventos de vbscript les pido me asistan en tal dilema

Atte

Manuel

IF instr("104710481049",CODIGO) <> 0 THEN
A=A+1
ENDIF

además de lo que dice el ayudante tampoco vale, porque si pones código = "7104" o "104710481" también va a sumar uno a la A.

Sí, tienes razón, pero la respuesta fue en base al ejemplo de Manuel. Y el operador "$" de Fox, Clipper o DBase, tiene su equivalencia en la función InStr de VB.

gracias a todos ...sus consejos me han ayudado y en especial a ayudante...ok ...para el tema de posbles codigos como 1047 o 4710 tal vez si le agrego un espacio en blanco intermedio entre ambos resuelta la inquietud es decir "1047 1048" que dicen

Pues te sigo diciendo lo mismo de antes, si el usuario pone la variable codigo a "1047 1" va a seguir sumando uno a no ser que le pongas la longitud de la variable a cuatro dígitos y que no pueda digitar más.

claro con mid lo puedo consistenciar

¿Con mid lo podes "consistenciar", (no sé lo que es consistenciar). Pero cómo, podriais poner el código?
Me interesa bastante.

algo asi en donde cad1 contiene mi cadena de valores los cuales no considero =0

InStr("1047 1048 1049 1052 1053 1054 1055 1056 1147 1151 1160", Mid(cad1, (1,4))=0