Selected Answer
Hi JFT and welcome to the Forum.
I'm not clear what you're thinking to do here. If I use your code extract but change "Website" to this Forum's URL then print part of it (see changes in bold below) :
Sub ShowHTML()
Set mHtml = New HTMLDocument
Set mReq = CreateObject("MSXML2.XMLHTTP")
' Define a website
Website = "https://www.teachexcel.com/talk/microsoft-office"
mReq.Open "GET", Website, False
mReq.setRequestHeader "User-Agent", "Chrome"
mReq.send
mHtml.body.innerHTML = mReq.responseText
' extract part of document to Intermediate Window
Debug.Print Left(mHtml.body.innerHTML, 208)
End Sub
then the printed result is this (the first 208 characters only):
<meta name="viewport" content="width=device-width, initial-scale=1">
<meta name="keywords" content="Excel Q&A Forum">
<meta name="description" content="Microsoft Excel Question & Answer Forum.">
To me that shows that (with the Microsoft HTML Object Library active) the HTML has been obtained (but will be much more than the initial 208 characters). I guess your task is to identify and extract which parts you want.
Hope this helps. If so, please don't forget to mark this Answer as Selected.