VB 字符串转换为UTF-8

dim e as object

Set e=CreateObject("MSScriptControl.ScriptControl")

e.Language = "javascript"

dim d as stringd= e.Eval("encodeURI('微软计算机')") '运行javascript脚本的函数

MsgBox d

MsgBox e.Eval("decodeURI('" & d  & "')")