Private Function getHTMLDocument(ByVal strUrl As String) As String
Dim HTML As New HTMLDocument
Dim DOC As HTMLDocument
DOC = HTML.createDocumentFromUrl(strUrl, vbNullString)
Do While DOC.readyState <> "complete"
DoEvents()
Loop
getHTMLDocument = DOC.documentElement.innerHTML
DOC = Nothing
HTML = Nothing
End Function

不用这么麻烦 获取网页源码吧
用WebClient 或 WebRequest 随便那个 轻松获取 看MSDN有实例

.NET特性让你硬生无视了