在excel中，如何利用vba对url进行解码？

Question

目前在excel中，针对url编码、解码的问题，在excel 2013中及以上版本中有了原生编码函数EnCodeURL()，但是却一直没有解码函数，于是想到可以通过vba来自定义解码函数，我是vba菜鸟，于是想从互联网上找个现成的函数，可是翻遍了中英互联网，都没找到一个好使的函数。
目前测试成功的代码，只有seoToolsForExcel这个插件的解码函数UrlDecode()（http://seotoolsforexcel.com/u...），看了下插件购买价格，还是囊中羞涩。

原始字符串：
http://www.baidu.net/?utm_sou...%E5%93%81%E7%89%8C%3C%E6%B3%A1%E8%8A%99%E8%9C%9C%E8%AF%AD%3E&semk=65144830341&semc=10793640971&semm=2&semp=clg1&sema=bj&semd=pc

结果字符串：
http://www.baidu.net/?utm_sou...泡芙蜜语总部&utm_content=A01泡芙蜜语-名称短&utm_campaign=PFMY_品牌<泡芙蜜语>&semk=65144830341&semc=10793640971&semm=2&semp=clg1&sema=bj&semd=pc

求教段VBA urlDecode()函数。

Answer 1

VBA UrlDecode和VBA UrlEncode