Помощь по условию в макросе для Word

[baston]

Коллеги, не могу сообразить, как поставить правильно условие в следующем коде.

Код: Выделить всё

Sub poisk()
'Поиск слов в тексте и вывод в конце документа списка номеров страниц,
'где данные слова встречаются
Dim a As String, b As String
b = InputBox("Введите искомое слово", "Запрос искомого слова")
Selection.HomeKey wdStory

With Selection.Find
   .ClearFormatting
   .Replacement.ClearFormatting
   .Text = b
   .Forward = True
   .Wrap = wdFindStop
   .Execute
End With

If StrPtr(b) = 0 Then Exit Sub

While Selection.Find.Execute = True
   a = a & CStr(Selection.Information(wdActiveEndPageNumber)) & ", "
Wend


With Selection
   .EndKey Unit:=wdStory
   .InsertAfter vbCr
   .Collapse wdCollapseEnd
   .TypeText a
End With
End Sub

Как видите, есть проверка на нажатие кнопки Отмена, но проблема с кнопкой ОК.
Мне нужно следующее:
1. Если форма пустая и пользователь нажал кнопку ОК в форме, то должно вывести сообщение и после закрытия сообщения вновь вернуться к форме. Сейчас же макрос все равно выполняется, так как ОК возвращает что-то.
Делал и так, и эдак - не получается.
Может, лучше функцию написать проверки нажатия кнопок в форме InputBox? И тогда ее можно будет использовать и в других проектах-макросах.
2. Как можно оптимизировать этот макрос?
Спасибо. Надеюсь на помощь.

[Денис]

так как ОК возвращает что-то

Воспользуйтесь Debug.Print

[baston]

так как ОК возвращает что-то

Воспользуйтесь Debug.Print

Зачем? Мне нужно было условие, а не получение значения. Или я неправильно понял вас?
В любом случае я добавил функцию и реализовал код через нее. Получилось, но немного громоздко. Думаю, как теперь оптимизировать, если возможно.

[RayShade]

Ну а проверить Len(b), чтоб была не 0, как?

[baston]

Да. спасибо. Именно так и сделал и убрал функцию как лишнюю. Получилось очень неплохо.