heroes1412 > 26-01-13, 12:32 PM
Function Result(strData)
no =10
strResult = ""
For i = 1 To Len(strData)
strResult = strResult + Chr(Asc(Mid(strText, i, 1)) Xor no)
Next
Result = strResult
End Function