在VB6.0中如何实现escape和unescape，需要引用哪个API

在VB6.0中怎么实现escape和unescape，需要引用哪个API？
如题
谢谢！

[解决办法]

VB code

Function Escape(ByVal pstrInput As String) As String     Dim objScrCtl      As Object         Set objScrCtl = CreateObject("MSScriptControl.ScriptControl")     objScrCtl.Language = "JavaScript"     Unescape = objScrCtl.Eval("escape('" & pstrInput & "')")     Set objScrCtl = NothingEnd FunctionFunction Unescape(ByVal pstrInput As String) As String     Dim objScrCtl      As Object         Set objScrCtl = CreateObject("MSScriptControl.ScriptControl")     objScrCtl.Language = "JavaScript"     Unescape = objScrCtl.Eval("unescape('" & pstrInput & "')")     Set objScrCtl = NothingEnd Function
[解决办法]
探讨

VB code
Function Escape(ByVal pstrInput As String) As String
     Dim objScrCtl      As Object
    
     Set objScrCtl = CreateObject("MSScriptControl.ScriptControl")
     objScrCtl.Language = "J……

[解决办法]
探讨


VB code
Function Escape(ByVal pstrInput As String) As String
     Dim objScrCtl      As Object
    
     Set objScrCtl = CreateObject("MSScriptControl.ScriptControl")
     objScrCtl.Language = "Java……

[解决办法]
看答案才看懂问题