Как в техт1.техт вывести сообщение что такой ссылки на сайте

[ala-x]

Как в техт1.техт вывести сообщение что такой ссылки на сайте не обнаружено.(Если конечно её действительно там нет)??

Вот код:

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

Private Sub Command1_Click()
For Each TestLink In WebBrowser1.Document.links
    If TestLink.innerText = "Гостевая Книга" Then
        Text1.text="Объект найден"
        Exit For
    End If
Next TestLink
End Sub

Я пробывал вариант

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

Private Sub Command1_Click()
For Each TestLink In WebBrowser1.Document.links
    If TestLink.innerText = "Гостевая Книга" Then
        Text1.text="Объект найден"
Else: Text1.text="Объкет Удалён"
        Exit For
    End If
Next TestLink
End Sub

но не срабатывает...Подскажите вариант

[alibek]

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

If <условие> Then
  <действия-если-условие-выполнено>
Else
  <действия-если-условие-не-выполнено>
End If

ala-x, если ты еще раз задашь вопрос, не просмотрев, хотя бы бегло, документацию и справочную систему, я тебя отключу на несколько дней, чтобы у тебя было время почитать документацию.

[ala-x]

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

If <условие> Then
  <действия-если-условие-выполнено>
Else
  <действия-если-условие-не-выполнено>
End If

ala-x, если ты еще раз задашь вопрос, не просмотрев, хотя бы бегло, документацию и справочную систему, я тебя отключу на несколько дней, чтобы у тебя было время почитать документацию.

А я разве не так пробывал?Или есть ошибка?

[ala-x]

Всё--разобрался...Тема не актуальна...Извиняюсь за глупый вопрос