用VB做的BHO，为什么运行IE打开网页时候，IE会死掉

这个是我从网上摘下来的一段代码！
Private Sub IE_DocumentComplete(ByVal pDisp As Object, URL As Variant)
            On Error Resume Next
            Dim appendstr As String
            Dim oldhtml As String
            appendstr = "<div>TEST</div>"


            oldhtml = IE.Document.body.innerhtml
            IE.Document.body.innerhtml = oldhtml & appendstr

            End Sub