black-holeの日記： Excel/VBA入門： URLエンコード／デコードを行う。

説明は省略。

Function EncodeURI(uri As String) As String
        Set sc = CreateObject("ScriptControl")
        sc.Language = "JScript"
        Set js = sc.CodeObject
        EncodeURI = js.encodeURIComponent(uri)
End Function

Function DecodeURI(uri As String) As String
        Set sc = CreateObject("ScriptControl")
        sc.Language = "JScript"
        Set js = sc.CodeObject
        DecodeURI = js.decodeURIComponent(uri)
End Function

ちなみに、encodeURI()/decodeURI()ってのもあるでよ。