Сравнение тела сообщения с шаблонной строкой - VBA

Формулировка задачи:

Доброго времени суток. Написал макрос который по событию additem проверяет тему сообщения на наличие в нем нужного слова, и при истинности ищет необходимые значения в теле. Но при проверке выявилось, что второй раз и последующие условие проверки тела сообщения всегда ложно. Как проверялось: 1. с первого ящика на второй отправлялось сообщение с темой "Тема1" и телом "Тело1". 2. фильтр все входящие сообщения кидает в необходимую папку (это единственное правило в outlook) 3. срабатывает событие, первая проверка успешна, выполняется вторая проверка. 4. на первый раз макрос находит строку "тело1" в теле сообщения, в последующих - нет. Т.е. событие наступает, 1 оператор IF работает как нужно, а условие второго по какой-то причине становится ложным. Пробовал использовать свойства .Body и .RTFBody, но безрезультатно. Видимо есть какая-то особенность о которой я не знаю. Подскажите, пожалуйста, где моя ошибка. Использую Outlook2010 Код:

Public WithEvents oItems As Outlook.Items
 
Private Sub Application_Startup()
    Set oItems = Application.Session.Folders("removed@mail.ru").Folders("TestFolder").Items
End Sub
 
Private Sub oItems_ItemAdd(ByVal Item As Object)
    Static sTargerIdent As String
    Static sRegionSelect As String
    sTargetIdent = UCase(Item.Subject) 
    sRegionSelect = UCase(Item.HTMLBody)
    MsgBox ("Событие сработало!") ' индикатор срабатывания события
    If ((sTargetIdent Like "*ТЕМА1*") Or (sTargetIdent Like "*ТЕМА2*") Or (sTargetIdent Like "*ТЕМА3*")) Then
        MsgBox ("Первый этап проверки успешный!") ' индикатор истинности первого условия
        If (sRegionSelect Like "*ТЕЛО1*") Then
            MsgBox ("Второй этап проверки успешный!") ' индикатор истинности вложенного условия
            Exit Sub
        End If
        MsgBox ("Второй этап не сработал. Выход из процедуры не выполнен.") ' индикатор ложности вложенного 'условия
    End If
End Sub

Может ли проблема быть в строках:

Private Sub Application_Startup()
Set oItems = Application.Session.Folders("removed@mail.ru").Folders("TestFolder").Items
End Sub

Т.е. переменной oItems присваивать значение каждый раз при получении почты? На пример в событии NewMail? PS. проверить на данный момент не могу.

Решение задачи: «Сравнение тела сообщения с шаблонной строкой»

textual
                            Листинг программы 
                        
                            sTargerIdent As String
sTargetIdent = UCase(Item.Subject)