IHTMLElement OuterHTML属性在块中间缺少代码

Question

看起来我的功能是以编程方式返回相同的HTML代码，您可以通过转到IE 11中的网页并选择视图 - ＆gt;手动获取该代码。来源已经陷入了一个小故障。这是功能代码，对于我尝试过的大多数网页而言，它已经很好地工作了：

Function GetHTML(ByVal strURL as String) As Variant
   Dim oIE As InternetExplorer
   Dim hElm As IHTMLElement
   Set oIE = New InternetExplorer
   oIE.Navigate strURL
   Do While (oIE.Busy Or oIE.ReadyState <> READYSTATE_COMPLETE)
     DoEvents
   Loop
   Set hElm = oIE.Document.all.tags("html").Item(0)
   GetHTML = hElm.outerHTML
   Set oIE = Nothing
   Set hElm = Nothing
End Function

当我尝试提取此页面的HTML代码时问题浮出水面：

http://www.tiff.net/festivals/thefestival/programmes/specialpresentations/dearest

此页面的功能结果是在其所分配的变体的MIDDLE中缺少HTML代码。对于同一站点上的其他页面而言，情况并非如此，据我所知，其结构相似。如果您通过视图查看HTML - ＆gt;浏览器中的源代码，函数结果中缺少第740-799行。任何人都可以解释为什么以及是否有解决方法？有没有办法以编程方式告诉IE对象保存视图中出现的内容 - ＆gt;源文件？