[vba] ENCODEURL

Function ENCODEURL(varText As Variant, Optional blnEncode = True)

    Static objHtmlfile As Object

    If objHtmlfile Is Nothing Then

        Set objHtmlfile = CreateObject("htmlfile")

        With objHtmlfile.parentWindow

            .execScript "function encode(s) {return encodeURIComponent(s)}", "jscript"

        End With

    End If

    If blnEncode Then

        ENCODEURL = objHtmlfile.parentWindow.encode(varText)

    End If

End Function