function EnDeCrypt(strIn as string) as string
dim i as integer
dim strOut as string
dim Zeichen as string
for i=1 to len(strIn)
  Zeichen=mid(strIn,i,1)
  strOut=strOut & chr(asc(zeichen) xor 107
next i
EnDeCrypt=strOut
end function
'Aufruf:
Var=EnDeCrypt(Text1.Text)