Сравнение текста

[SoFuWa]

Приветствую
Я в скрипте использую InStr(x,y) для сравнения строк текста, можно ли сделать так что бы проверка была по целому слову, например:
InStr(x,y)
x=Вышгородская ул.
y=Вышгород

Вышгород это город, а Х это улица, и нужно чтоб искался только Вышгород. А Вышгородская ул. не искалась
Вот такая проблема

[EducatedFool]

If x=y then msgbox "Слова совпадают"

Если такой вариант не устраивает, объясните, почему, и приведите весь код.

[Aent]

SoFuWa, Вам нужно уточнить что Вы понимаете под словом.
Текст заканчивающийся пробелом или любым символом отличным от буквы ? В любом случае лобовое решение - использовать оператор like.

[The_Prist]

Используйте такую конструкцию

If cells(1,1) = "Вышгород" then 'это по полному совпадению
If cells(1,1) like "*Вышгород*" then 'это по частичному

[SoFuWa]

мне вообщем нужно искать ключевик в X, не равенство и поиск в X Y
например
x=Вышгородская ул.
y=Вышгородская

Должно найтись, целое слово

А если
x=Вышгородская ул.
y=Вышгород
то не должно найтись так как не целое слово.
В X может быть вообще много слов.

[SoFuWa]

Под словом я понимаю текст заканчивающийся пробелом

[EducatedFool]

Sub test()
    x = "Вышгородская ул."
    y = "Вышгородская"
    If InStr(1, x & " ", y & " ", 1) Then MsgBox "совпало!"
End Sub

[SoFuWa]

Спасибо работает. Можно тут еще один вопрос. У меня раньше было вверху написано Option Compare Text, и этот оператор работал, ну регистр при сравнении не учитывался, а теперь мне понадобилось что бы регистр учитывался я убрал оператор, а ренистр всё равно не учитывается ! хотя до того как ставил оператор учитывался, глупость какая то. Я написал в начале модуля скрипта, Option Compare Binary а всё равно регистр не учитывается, в чём может быть дело? Нужно именно чтоб для всего было, каждый раз го прописывать для всех операторов естественно долго (vbTextBinary).

[SoFuWa]

Притом что в другом екзелевском файле всё работает!

[Aent]

EducatedFool, приведённый вами код даст неправильный
результат для х = "Завышгородская ул" при Option Compare Text.
Как минимум надо добавлять пробел к х и y ещё и слева.