html中插入external link,使用external.menuarguments在Internet Explorer窗口中修改HTML

我有一个vb.net类,它是用internet explorer中的上下文菜单扩展调用的。

代码可以访问页面的对象模型,读取数据不成问题。这是测试函数的代码…它更改状态栏文本(ok),打印页面html(ok),通过添加文本更改html,然后再次打印页面html(ok,在第二个弹出窗口中,我添加的文本在html中)

但Internet Explorer窗口不显示它。我做错什么了?

Public Sub CallingTest(ByRef Source As Object)

Dim D As mshtml.HTMLDocument = Source.document

Source.status = "Working..."

Dim H As String = D.documentElement.innerHTML()

MsgBox(H)

D.documentElement.insertAdjacentText("beforeEnd", "ThisIsATest")

H = D.documentElement.outerHTML()

MsgBox(H)

Source.status = ""

End Sub

从javascript调用函数的方式如下:

var EB = new ActiveXObject("MyObject.MyClass");

EB.CallingTest(external.menuArguments);