VBAでURLエンコード

gistfile1.txt

Function UrlEncodeUtf8(str As String) As String
    Dim script As Object
    Set script = CreateObject("ScriptControl")
    script.Language = "Jscript"
    UrlEncodeUtf8 = script.CodeObject.encodeURIComponent(str)
End Function

あ～もうぜんぜんついていけません。
YU-TANGさんすごいっすね。

お蔭様で、ここでやり取っているうちに、64bit 環境でURLエンコードする別の方法を思いついたので、暇になったら書きます。
(しかし検証ができんな…)

マジッすか。ぜひぜひ。