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

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 = Nothing
End Function

Function 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 = Nothing
End Function

------解决方案--------------------