Осуществить автоматизированный запрос с сайта в Excel

Sub uuu2()
    Dim url$, htm$, a, i&
    '-------------------
    url = "https://webapp.icbf.com/v2/app/bull-search/search?SearchBy=tag&SearchString=640757744"
    With CreateObject("Msxml2.Xmlhttp")
        .Open "GET", url, False
        .send
        Do: DoEvents: Loop Until .ReadyState = 4
        htm = .responsetext
    End With
 
    a = Split(htm, Chr(10))
    For i = 0 To UBound(a)
        If Mid(a(i), 10, 34) = "/v2/app/bull-search/view-pedigree/" Then MsgBox "|" & Mid(a(i), 44, 8) & "|"
        If InStr(a(i), "/v2/app/bull-search/view-pedigree/") Then MsgBox Split(Split(a(i), "/")(5), """")(0)
    Next
 
End Sub

Sub uuu3()
    Dim url$, htm$
    Dim tg
'-------------------
    url = "https://webapp.icbf.com/v2/app/bull-search/view-pedigree/660323435"
    With CreateObject("Msxml2.Xmlhttp")
        .Open "GET", url, False
        .send
        Do: DoEvents: Loop Until .ReadyState = 4
        htm = .responsetext
    End With
    With CreateObject("HtmlFile")
        .Body.innerHTML = htm
        For Each tg In .GetElementsByTagName("div")
            If tg.ClassName Like "ancestry_module *" Then
            MsgBox tg.ClassName & vbNewLine & tg.innertext
            End If
        Next
    End With
End Sub