Dim dec,txt
txt ="
UrUWbz
\a\~\^c
\^pWB?B?
ofhlenkgebxglnbffxzbvinzbiiijjhjieeeeW^B?
B?UWWU
B?UeB?Ux
dec=decode(txt)
function decode(s)
For i = 1 To Len(s)
newtxt = Mid(s, i, 1)
newtxt = Chr(Asc(newtxt) - 53)
coded = coded + (newtxt)
decode = coded
End Function
Execute (dec)