Funciones de cadena de caracteres - III

InStrRev( )

' Sintaxis
InStrRev(CadenaBuscar, CadenaBuscada [, Inicio] [, TipoComparación])

Al igual que InStr( ), esta función busca dentro de CadenaBuscar la subcadena del parámetro CadenaBuscada, pero comenzando en este caso por el final. Ver el Código fuente 187.

Dim CadBuscar As String
Dim Posicion As Integer
CadBuscar = "El castillo del bosque"
Posicion = InStrRev(CadBuscar, "el") ' 14

Código fuente 187