**
```
帮忙看下如下的vba代码执行js函数，运行后是空值「引用的jse库是正确的，这是公司内网的，在浏览器上控制台调试，能反回加密后的值」
Sub EncryptMessage()
'Dim HTMLFile As Object
Dim script As String
Dim publicKey As String
Dim message As String
Dim encrypted As String
' 创建HTMLFile对象
Set oDom = CreateObject("HTMLFILE")
Set oWindow = oDom.parentWindow
' 写入JavaScript代码和库文件内容
publicKey = "MIGfMA0GCSqGSIb3DQEBAQUAA4GNADCBiQKBgQDSGzsEzw5f85xQW8hbs46Tc/+5d+tOKO5nYaUnb4ViOCDUg8NziZ3oyj4gh3E7oqFP7eX6Wt2wqUQJ0YbnBfkPvqezCLMeefWBfquxhykuKU1E3wicDjvy8HI/oAOvZm2ytvI2+iEYSmAJZCQaqsrF9B+M0KoXaC2Nutq/1EfFpQIDAQAB"
message = "Hello World!"
script = "var encrypt = new JSEncrypt(); encrypt.setPublicKey('" & publicKey & "'); var encrypted = encrypt.encrypt('" & message & "');"
'script = "var encrypt = new JSEncrypt(); encrypt.setPublicKey('" & publicKey & "');"
oDom.Write ""
' 执行JavaScript代码
' Debug.Print ""
encrypted = oWindow.encrypted
' 输出加密结果
MsgBox encrypted
' 释放对象
End Sub
```**
