Función InStrRev [VBA]

Devuelve la posición de una cadena dentro de otra cadena, comenzando por el extremo derecho de la cadena.

Esta función o constante se activa por medio de la instrucción Option VBASupport 1, colocada antes del código del programa ejecutable de algún módulo.

La función InStrRev devuelve la posición en la que se encontró la coincidencia, a partir de la derecha. Si no se encuentra la cadena, la función devuelve 0.

Sintaxis:

InStrRev (Texto1 As String, Texto2 As String [,Start As Long] [, Compare As Integer])

Valor de retorno:

Long

Parámetros:

Text1: la expresión de cadena que se desee buscar.

Text2: la expresión de cadena que se desee buscar.

Start: expresión numérica opcional que indica la posición a partir de la izquierda en una cadena en la que da comienzo la búsqueda de la subcadena especificada. Si este parámetro se omite, la búsqueda comienza desde el primer carácter de la cadena. El valor máximo es 65535.

Compare: expresión numérica opcional que define el tipo de comparación. El valor de este parámetro puede ser

1: el valor predeterminado 1 establece que la comparación no distingue entre minúsculas y mayúsculas.

0: el valor 0 especifica una comparación binaria que distingue entre minúsculas y mayúsculas.

Para evitar un error en tiempo de ejecución, no defina el parámetro Comparación si se omite el primer parámetro de retorno.

Códigos de error:

5 Llamada a procedimiento no válida

Ejemplo:

Sub ExamplePosition

Dim sInput As String

Dim iPos As Integer

 sInput = "El libro está sobre la mesa"

 iPos = InStrRev(sInput,"el",10,1) ' Devuelve 1; la búsqueda no distingue mayúsculas y minúsculas

 Print iPos

 iPos = InStrRev(sInput,"el",10,0) ' Devuelve 0; la búsqueda distingue mayúsculas y minúsculas

 Print iPos

End Sub

InStr