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