encodeURIComponent in VBA for Excel

encodeURIComponent.vb

Function encodeURIComponent(strText As String) As String
    Static objHtmlfile As Object
    If objHtmlfile Is Nothing Then
        Set objHtmlfile = CreateObject("htmlfile")
        ' objHtmlfile.parentWindow.execScript "function encode(s) {return encodeURIComponent(s)}", "jscript"
    End If
    encodeURIComponent = objHtmlfile.parentWindow.encodeURIComponent(strText)
End Function

Function decodeURIComponent(strText As String) As String
    Static objHtmlfile As Object
    If objHtmlfile Is Nothing Then
        Set objHtmlfile = CreateObject("htmlfile")
        ' objHtmlfile.parentWindow.execScript "function encode(s) {return encodeURIComponent(s)}", "jscript" ' if you wanted to add a custom function
    End If
    decodeURIComponent = objHtmlfile.parentWindow.decodeURIComponent(strText)
End Function