Function catsize()
    Dim Doctest As New MSHTML.HTMLDocument
    'sss = "&2#53076;" 
    sss = "2&3"
    Doctest.body.innerHTML = sss
    Debug.Print Doctest.body.innerHTML
End Function  大家可以试试这个代码,建立对象并赋值以后,再输出html就变了,,被自动转义了,可是问题是第二个sss就不转,这不是坑人嘛。有不有办法让它不转义,原来是什么样,还是什么样。