InStr (Función)
Devuelve un tipo Variant (Long) que especifica la posición de la primera aparición de una cadena en otra.
Sintaxis
InStr([start, ]string1, string2[, compare])
La sintaxis de la función InStr tiene estos argumentos:
Parte Descripción
start Opcional. Expresión numérica que establece la posición inicial para cada búsqueda. Si se omite, la búsqueda comienza en la posición del primer carácter. Si inicio contiene un valor Null, se produce un error. El argumento inicio se requiere si se especifica compare.
string1 Requerido. Expresión de cadena en la que se busca.
string2 Requerido. Expresión de cadena buscada.
compare Opcional. Especifica el tipo de comparación de cadena. Si compare es Null, ocurre un error. Si se omite compare, el valor Option Compare determina el tipo de comparación. Especifica un LCID (LocaleID) válido para usar reglas específicas de configuración regional en la comparación.
Dim Variable1 as single
Dim Variable2 as single
variable1=1
variable2=0
Do Until instr(variable1,Texto,",")=0
if instr(variable1,Texto,",")<>0 then
variable2=variable2+1
variable1=instr(variable1,Texto,",")+1
end if
Lopp