Скрипт VBA, чтобы динамически менять тему на входящие письма в Outlook 2013

Я посмотрел на этот пример сценария Outlook, который похож и отличный старт для меня:Outlook скрипт для редактирования темы

тем не менее, мне нужно изменить входящие строки темы сообщения по прибытии в более сложный метод, который требует более сложной обработки строк.

Это мой основной код я использовал, что работал до дата:

Sub ConvertToPlain(MyMail As MailItem)
    Dim strID As String
    Dim objMail As Outlook.MailItem

    strID = MyMail.EntryID
    Set objMail = Application.Session.GetItemFromID(strID)
    objMail.Subject = Left(objMail.Subject, 18)
    objMail.Save

    Set objMail = Nothing
End Sub

Теперь, я оригинальные предметы всегда в следующем формате (ничего в скобках стоит переменная):

Ticket [#] - [SOMETHING] - [SOMETHING] - [TITLE]

Я хочу удалить " [что - то] - [что-то] -", который динамически меняется, как вы можете видеть, и держать только:

Ticket [#] - [TITLE]

таким образом, я могу еще раз сортировать/фильтр с легкостью в outlook. Как это можно сделать в VBA? Спасибо тебе.