Поиск в тексте вложенного файла - VBA

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

Доброго времени суток. С VBA вообще не знаком по этому прошу помощи. Написал скрипт который по правилу сохраняет файлы из приходящей почты все работает, но не как не могу написать что бы он смотрел в файл и находил нужный текст и через условие хотя бы выдавал его как msgbox. Файлы приходят как текстовые документы, но в них есть разделители что дает корректно открыть его любой версией exel. Надеюсь на вашу помощь, если надо могу выложить скрипт сохранялку

Забыл написать что правило и скрипт работают в Outlook vba

написал такой кусок кода, но по моему я не правильно делаю сравнение или смотрю в нужную строку... кто может помочь ? 1.Сохраняется файл на жесткий диск 2. Открывается и ищется нужная строка 3. Сравниваю значение строки с моим значением ([id=36174_24]) 4. Сохраняю с новым значением vAdress = Файл сохраняется, строка ищется (проверяю через (MsgBox MyFile.ReadLine) значение строки), но проблема с проверкой.

                    Листинг программы
                
 
                        
                          
                    
vAdres = "xxxxx"
EndSaveFile = saveFolder & j & objAtt.FileName & "_" & vAdres & ext
objAtt.SaveAsFile EndSaveFile
 
Set fso = CreateObject("Scripting.FileSystemObject")
Set MyFile = fso.OpenTextFile(EndSaveFile, 1, True)
MyFile.SkipLine
MyFile.SkipLine
MsgBox MyFile.ReadLine
 
If MyFile.ReadLine = "[id=36174_24]" Then
    vAdress = "Плюшкина_стрит-12"
    objAtt.SaveAsFile EndSaveFile
 
End If

Решение задачи: «Поиск в тексте вложенного файла»

textual
                            Листинг программы 
                        
s = Array("36174_44", _
              "99974_12")