Как понять, что на этой странице HTML выводится такой текст - VBA - Ответ 14309921

Public Declare Sub Sleep Lib "kernel32" (ByVal Milliseconds As Long)
Function Запрос(сайт)
    Sleep CLng(UFzapros.TextBox5.Text)
    URL$ = сайт
    Const TIMEOUT& = 150
    Set XMLHTTP = CreateObject("WinHttp.WinHttpRequest.5.1")
    'Set XMLHTTP = CreateObject("Msxml2.Xmlhttp")
    XMLHTTP.Open "GET", URL$, True: DoEvents
    XMLHTTP.send: DoEvents
    If Not XMLHTTP.WaitForResponse(TIMEOUT&) Then
        MsgBox "Сайт не найден! (timeout)", URL: Exit Function
    End If
    Запрос= XMLHTTP.responseText
End Function
 
Sub Основная_функция()
' убрал всякую лабуду по формированию запроса
' вместо нее вставил уже готовую ссылку
sit = "https://www.holstein.ca/en/AIS/Search?animalSearchString=135695137"
htm = Запрос(sit)
        Set sd = CreateObject("Scripting.Dictionary")
        With CreateObject("HtmlFile")
            .body.innerhtml = htm
            For Each tg In .GetElementsByTagName("div")
                If InStr(1, tg.innertext, "1 - 1 of 1 items") > 0 Then Stop ' жду, что где-то произойдет остановка. Но ее не происходит. Сразу вываливается в end sub
            Next
        End With
End sub