网抓字符"\uxxxx"类型的转码函数，版本适应问题

boywin3

在处理一般简短的 .responseText返回数据时，即使有一些"\uxxxx"也可以个别处理，详见此贴：
https://club.excelhome.net/forum.php?mod=viewthread&tid=1593844&page=1#pid10742270
但是数据中文字符很多，运行效率就要考虑了，网抓界启蒙大师wcymiss的代码就直接可以用：
（郑重推荐新人小白学习，全是干货：https://club.excelhome.net/thread-1159783-1-1.html）


Function unescape(strTobecoded As String) As String
    With CreateObject("msscriptcontrol.scriptcontrol")
        .Language = "JavaScript"
        unescape = .Eval("unescape('" & strTobecoded & "');")
    End With
End Function
但是问题来了，当.ResponseText返回的数据很长时候，这个函数在2010版本上报错（2013没问题），该语句
unescape = .Eval("unescape('" & strTobecoded & "');")时，1015错误：

请有过经历的朋友指点，感谢！

boywin3

自己已经找到原因了，完美解决！！