Как использовать несколько условий в VBA

Question

В следующем коде я пытаюсь найти текстовое поле в документе с открытым словом.Как только это текстовое поле было найдено, я также хотел бы проверить, чтобы внутри был правильный текст.Это код, который не работает, и я не мог понять, почему.

Dim i as Integer

for i = 1 to Application.ActiveDocument.Shapes.Count
    if Application.ActiveDocument.Shapes(i).Name = "Text Box 2" and _
    instr(Application.ActiveDocument.Shapes(i).TextFrame.TextRange.Text, "[Grab your reader") then
            ` Execute
    end if
next i

Теперь, если я заменим и другим , если , это сработает.

Dim i as Integer

for i = 1 to Application.ActiveDocument.Shapes.Count
    if Application.ActiveDocument.Shapes(i).Name = "Text Box 2" then
        if instr(Application.ActiveDocument.Shapes(i).TextFrame.TextRange.Text, "[Grab your reader") then
            ` Execute
        end if
    end if
next i

Из того, что я понимаю, и должны работать точно так же, как и добавление нового оператора if.Если бы кто-нибудь мог сказать мне, почему это происходит, это было бы здорово.