Чтобы найти подстроку в строке с помощью оператора
Like (
Примеры), необходимо подстроку выделить символом звёздочки "
*" с обеих сторон. Нужно помнить, что регистр букв необходимо соблюдать.
Рекомендую также в самом начале модуля вписать строку
Option Explicit, что позволит избежать обращения к несуществующим переменным (все переменные должны быть объявлены через оператор
Dim).
Можете попробовать использовать регулярные выражения, как посоветовали ниже, но в данном контексте можно обойтись и без них.
Проще всего использовать вариант #3 (который предложили ниже), но на слабом ПК будет тормозить.