在 vba 中使用 xmlhttp 请求无法从网页获得任何响应

Question

我正在尝试使用 vba 中的 xmlhttp 请求从网页获得任何响应。 每当我尝试执行以下脚本时，都会收到相同的消息The system can't locate the resource specified 。

Sub GetTitle()
    Const URL$ = "https://jow.com/recipes/roasted-eggplant-with-yogurt-sauce-80uf18xsg48w043m0g4y/print"

    Dim Html As HTMLDocument
    
    Set Html = New HTMLDocument

    With CreateObject("MSXML2.XMLHTTP")
        .Open "Get", URL, False
        .setRequestHeader "User-Agent", "Mozilla/5.0 (Windows NT 6.1) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/94.0.4606.81 Safari/537.36"
        .send
        Html.body.innerHTML = .responseText
    End With

    MsgBox Html.querySelector("h1").innerText

End Sub

如何摆脱上述消息并使用 xmlhttp 请求从该网页获取任何响应？