VBA如何对URL中的汉字编码？？

Question

在JS中，使用url来向web server请求的时候，需要用encodeURI来对其中的汉字进行编码，否则会出乱码。
VBA中有没有相应的函数？

Answer 1

不知可是这个：
Public Function Escape(ByVal strText As String) As String             
    Set JS = CreateObject("msscriptcontrol.scriptcontrol")
    JS.Language = "JavaScript"
    Escape = JS.Eval("encodeURI('" & Replace(strText, "'", "\'") & "');")
End Function错了莫怪，我是菜鸟

Answer 2

这个函数，我是在excelhome看到的。
在VBA中好用。

Answer 3

VBA中自己没有encodeURI类似功能的函数，上述
Function Escape是移花接木，但好用。