Ошибка печати в результате другой подпроцедуры

Question

Я создал макрос для анализа некоторых ссылок и относящихся к ним текстов с веб-страницы.Когда я печатаю результат в пределах fetchData(), я получаю их все.Но когда я печатаю результат в printResult(), я получаю очень мало из них.

Как я могу напечатать весь результат в другом сабвуфере, как в printResult()?

Sub fetchData()
    Const baseUrl = "https://www.psacard.com"
    Const link = "https://www.psacard.com/psasetregistry/baseball/company-sets/16"
    Dim Http As New XMLHTTP60, Html As New HTMLDocument
    Dim post As Object, nUrl$, sName$

    With Http
        .Open "GET", link, False
        .send
        Html.body.innerHTML = .responseText
    End With

    For Each posts In Html.getElementsByTagName("td")
        If posts.getElementsByTagName("a").Length Then
            nUrl = baseUrl & Split(posts.getElementsByTagName("a")(0).getAttribute("href"), "about:")(1)
            sName = posts.getElementsByTagName("a")(0).innerText
            printResult nUrl, sName
        End If
    Next posts
End Sub

Sub printResult(ByVal nUrl As String, ByVal sName As String)
    Debug.Print nUrl, sName
End Sub