VB6・VBAで簡単にURLエンコード・デコードする方法

残念ながらVB6にはURLエンコード・デコードをする関数が標準では用意されてない。（.NETにはあるらしいんだけどね。。。)
1バイト文字だけだったら自分で関数を書いてもいいのだが、2バイト文字も扱わないとならないとなると、途端に書く気力が失せる。(自分だけかな？)
そんな人のために、VB6から簡単にURLエンコード・デコードする方法。

'==================================================
'UrlEncodeUtf8: 文字列をUTF-8でエンコードするFunction
'==================================================
'strSource: 元の文字列
'返り値: エンコードされた文字列
'==================================================
Public Function UrlEncodeUtf8(ByRef strSource As String) As String
Dim objSC As Object
Set objSC = CreateObject("ScriptControl")
objSC.Language = "Jscript"
UrlEncodeUtf8 = objSC.CodeObject.encodeURIComponent(strSource)
Set objSC = Nothing
End Function

'==================================================
'UrlDecodeUtf8: 文字列をUTF-8でデコードするFunction
'==================================================
'strSource: 元の文字列
'返り値: エンコードされた文字列
'==================================================
Public Function URLDecodeUTF8(strSource As String) As String
Dim objSC As Object
Set objSC = CreateObject("ScriptControl")
objSC.Language = "Jscript"
URLDecodeUTF8 = objSC.CodeObject.decodeURIComponent(strSource)
Set objSC = Nothing
End Function

これだけ。
簡単に言うと、VBからJavaScriptのencodeURIComponent/decodeURIComponent関数を呼んでやってるだけ。
たったこれだけの事なのに、ググってもなかなか出てこなかったから、同じ事でお困りの人はご参考に。