Функция VBA INSTRREV возвращает целое число, соответствующее первой найденной позиции значения в строке символов, начиная поиск справа.
Функция InStrRev возвращает 0, если соответствие не найдено.
InStrRev(текст, значение)
Или
InStrRev(текст, значение, начальный номер, регистр)
Определим позицию значения XLP, начиная поиск справа от текста:
Sub InStrRevExample() text = "REF: XLP-54-21-XLP-9" 'Первая позиция "XLP" в тексте при поиске справа position = InStrRev(text, "XLP") MsgBox position 'Возвращает: 17 End Sub