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

Sub ЗагрузкаТекстаВебСтраницы()
    'За основу взят код Игоря Вахненко
    Dim IE 'As Object
    Dim addr$
    Dim txt$
    Set IE = CreateObject("InternetExplorer.Application"):    ' загружаем браузер Internet Explorer
    On Error Resume Next
    addr$ = "https://www.holstein.ca/en/AIS/Search?animalSearchString=135695137"    ' указываем адрес сайта (веб-страницы), текст которой загружаем
    IE.navigate addr$    ' загружаем сайт
     While IE.Busy Or (IE.readyState <> 4): DoEvents: Wend    ' ждем, пока загрузится страница
    ' Set ieDoc = IE.Document    ' ссылка на открытый документ
    txt$ = IE.Document.body.innerText    ' считываем текст веб-страницы в текстовую переменную
    'Selection.TypeText txt$
    '[a1] = txt$ ' помещаем текст веб-страницы на лист Excel
    IE.Quit: Set IE = Nothing    ' закрываем браузер
    If InStr(1, txt$, "1 of 1 items") > 0 Then MsgBox "Тёлка найдена!" 'Только после очистки кэша IE.
    If InStr(1, txt$, "No items to display") > 0 Then MsgBox "Тёлка не найдена!"
    'MsgBox txt$, vbInformation, "Текст веб-страницы " & addr$ ' выводим сообщение с текстом с сайта
End Sub

Sub MuMu()
  'Основа по мотивам кода ZVI
  Const TIMEOUT = 10
  Dim IE As Object, t As Single
  Dim strTxt As String
  Set IE = CreateObject("InternetExplorer.Application")
  IE.Navigate "https://www.holstein.ca/en/AIS/Search?animalSearchString=135695137"
  ' Ждать готовности IE
  While IE.ReadyState <> 4
    DoEvents
  Wend
  ' Задать лимит времени ожидания готовности IE.Document
  t = Timer + TIMEOUT
  ' Ждать готовности IE.Document
  While IE.Document Is Nothing And Timer < t
    DoEvents
  Wend
  If IE.Document Is Nothing Then MsgBox "Time is gone", vbCritical, "Canceled": GoTo exit_
  Call Pause(0.5) ' задержка
  strTxt = IE.Document.GetElementsByTagName("td")(0).innerHtml
'  txt = IE.Document.body.innerText
 ' Debug.Print "Тёлкино ID = " & RegExRepl(strTxt)
  MsgBox "Тёлкино ID = " & RegExRepl(strTxt), vbInformation
exit_:
  ' Exit
  IE.Quit
  Set IE = Nothing
   
End Sub
 
Function RegExRepl(sString$) As String
'aequit 06.03.2020
    Dim RegEx As Object
    Dim objMatches As Object
    Set RegEx = CreateObject("VBScript.RegExp")
    With RegEx
       .Global = False
       .MultiLine = True
       .IgnoreCase = False
       .Pattern = "animalId=(\d+)&amp;animalRegNo"
    End With
    If Not RegEx.Test(sString) Then
        RegExRepl = ""
        Exit Function
    End If
    Set objMatches = RegEx.Execute(sString)
    RegExRepl = objMatches(0).SubMatches.Item(0)
End Function
 
Sub Pause(dt As Single)
'gling
    Dim Start As Single
    Start = Timer
    Do While Start + dt > Timer
        DoEvents
    Loop
End Sub

Sub MuMu()
  'Основа по мотивам кода ZVI
  Const TIMEOUT = 10
  Dim IE As Object, t As Single
  Dim strTxt As String
  Set IE = CreateObject("InternetExplorer.Application")
  IE.Navigate "https://www.holstein.ca/en/AIS/Search?animalSearchString=135695137"
  ' Ждать готовности IE
  While IE.ReadyState <> 4
    DoEvents
  Wend
  ' Задать лимит времени ожидания готовности IE.Document
  t = Timer + TIMEOUT
  ' Ждать готовности IE.Document
  While IE.Document Is Nothing And Timer < t
    DoEvents
  Wend
  If IE.Document Is Nothing Then MsgBox "Time is gone", vbCritical, "Canceled": GoTo exit_
  Call Pause(0.5) ' задержка
  'Selection.TypeText IE.Document.body.innerText
  If InStr(1, IE.Document.body.innerText, "1 - 1 of 1 items") > 0 Then
    MsgBox "На сайте обнаружен текст""1 - 1 of 1 items""", vbInformation
  Else
    MsgBox "На сайте текст ""1 - 1 of 1 items"" не найден!", vbCritical
  End If
  strTxt = IE.Document.GetElementsByTagName("td")(0).innerHtml
'  txt = IE.Document.body.innerText
 ' Debug.Print "Тёлкино ID = " & RegExRepl(strTxt)
  MsgBox "Тёлкино ID = " & RegExRepl(strTxt), vbInformation
exit_:
  ' Exit
  IE.Quit
  Set IE = Nothing
End Sub

Sub MuMu2()
  'Основа по мотивам кода ZVI
  'aequit 09.03.2020
  Const TIMEOUT = 10
  Dim IE As Object, t As Single
  Dim strTxt As String
  Set IE = CreateObject("InternetExplorer.Application")
  IE.Navigate "http://www.holstein-uk.org/animaldata#?breed=Holstein&type=Search&data=HerdBookNumber&search=true&breedcode=65&gender=Male&hbn=135695137&srcode=1"
  ' Ждать готовности IE
  While IE.ReadyState <> 4
    DoEvents
  Wend
  ' Задать лимит времени ожидания готовности IE.Document
  t = Timer + TIMEOUT
  ' Ждать готовности IE.Document
  While IE.Document Is Nothing And Timer < t
    DoEvents
  Wend
  If IE.Document Is Nothing Then MsgBox "Time is gone", vbCritical, "Canceled": GoTo exit_
  Call Pause(0.5) ' задержка
  'Selection.TypeText IE.Document.body.innerText
  If InStr(1, IE.Document.body.innerText, "1 of 1 results") > 0 Then
    MsgBox "На сайте обнаружен текст""1 of 1 results""", vbInformation
  Else
    MsgBox "На сайте текст ""1 of 1 results"" не найден!", vbCritical
  End If
  strTxt = IE.Document.GetElementsByTagName("td")(15).innerHtml
  MsgBox "Нужная ссылка " & RegExRepl(strTxt), vbInformation
exit_:
  ' Exit
  IE.Quit
  Set IE = Nothing
End Sub
 
Function RegExRepl(sString$) As String
'aequit 09.03.2020 http://www.holstein-uk.org/animaldata/animal/ancestry/36403438
    Dim RegEx As Object
    Dim objMatches As Object
    Set RegEx = CreateObject("VBScript.RegExp")
    With RegEx
       .Global = False
       .MultiLine = True
       .IgnoreCase = False
       .Pattern = "href=""([\w\/]+)"" target="
    End With
    If Not RegEx.Test(sString) Then
        RegExRepl = ""
        Exit Function
    End If
    Set objMatches = RegEx.Execute(sString)
    RegExRepl = "http://www.holstein-uk.org/" & objMatches(0).SubMatches.Item(0)
End Function
 
Sub Pause(dt As Single)
'gling
    Dim Start As Single
    Start = Timer
    Do While Start + dt > Timer
        DoEvents
    Loop
End Sub