A função VBA INSTRREV retorna um número inteiro correspondente à primeira posição encontrada do valor na sequência de caracteres, começando pela direita.
A função InStrRev retorna 0 se nenhuma correspondência for encontrada.
InStrRev(texto, valor)
Ou
InStrRev(texto, valor, número inicial, caso)
Determine a posição do valor XLP iniciando a pesquisa à direita do texto:
Sub InStrRevExample() text = "REF: XLP-54-21-XLP-9" 'A primeira posição de “XLP” no texto ao pesquisar fica à direita position = InStrRev(text, "XLP") MsgBox position 'Retorna: 17 End Sub