How to find two words in the subject line of email in 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. Need to find FOR REVIEW anywhere in the subject .

   note: * FOR REVIEW * doesn't works !!

2. Need to change the button NO to 'Go back'. replacing No with Goback didn't work !!

Answer 1

try:

  "*" "FOR REVIEW" "*"

instead of

"FOR REVIEW*"

Answer 2

Changed

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

To

Item.Subject LIKE "*For Review*"

So it finds the words.I removed TRIM function.