Как найти два слова в строке темы письма в vba?

Question

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim strSubject As String
  strSubject = Item.Subject
     If (Trim(strSubject)) Like "FOR REVIEW*" Then
         Prompt$ = "Please do xyz"
       If MsgBox(Prompt$, vbYesNo + vbQuestion + vbMsgBoxSetForeground, "Review Subject Line") = vbNo Then
        Cancel = True
      End If
    End If
End Sub

1. Нужно найти ОБЗОР где-нибудь в теме.

   Примечание: * ДЛЯ ОБЗОР * не работает !!

2. Нужно изменить кнопку «Нет» на «Вернуться».замена Нет на Гобак не сработала !!

Answer 1

Изменено

strSubject = Item.Subject
     If (Trim(strSubject)) Like "FOR REVIEW*" Then

На

Item.Subject LIKE "*For Review*"

Так он находит слова. Я удалил функцию TRIM.

Answer 2

попробуй:

  "*" "FOR REVIEW" "*"

вместо

"FOR REVIEW*"