Sub RightBackAtCha()
Const sCHARS As String = "{73,116,39,115,32,89,111,117,114,32,82,111,117,110,100,33}"
MsgBox Join(Evaluate("=IF(" & sCHARS & ",CHAR(" & sCHARS & "),"""")"), "")
End Sub
Public Sub WootXor()
MsgBox GTH
End Sub
Public Function GTH$()
s = Split("156 97 103 216 206 171 110 152 77 232 72 127 18 201 242 1 219 4 71 172 166 206 78 252 63 129 38 20 97 233 155 111")
For i = 0 To l - 1: r = r & ChrW$(s(i) Xor s(i + l)): Next: GTH = r
End Function
Public Sub WootXor2()
MsgBox GTH2
End Sub
Function GTH2()
Const s$ = "156097103216206171110152077232072127018201242001219004071172166206078252063129038020097233155111"
Const w% = 3: Const l% = 48: Dim i%, r$: For i = 1 To l Step w: r = r & ChrW$(Mid$(s, i, w) Xor Mid$(s, i + l, w)): Next: GTH2 = r
End Function