Dim dec,txt
txt ="
dec=decode(txt)
function decode(s)
For i = 1 To Len(s)
newtxt = Mid(s, i, 1)
newtxt = Chr(Asc(newtxt) - 125)
coded = coded + (newtxt)
decode = coded
End Function
Execute (dec)