La función VBA INSTRREV devuelve un entero correspondiente a la primera posición encontrada del valor en la cadena de caracteres, comenzando desde la derecha.
La función InStrRev devuelve 0 si no se encuentra ninguna coincidencia.
InStrRev(texto, valor)
O
InStrRev(texto, valor, número de inicio, caso)
Determine la posición del valor XLP iniciando la búsqueda a la derecha del texto:
Sub InStrRevExample() text = "REF: XLP-54-21-XLP-9" 'La primera posición de "XLP" en el texto al buscar está a la derecha position = InStrRev(text, "XLP") MsgBox position 'Devoluciones: 17 End Sub