下面的函數通過使用新的字符來替換原始的每一個字符而對值進行了加密。它先將每個字符轉換為其對應的ASCII值，再使用一個偏量，然後將（加入偏量的）ASCII值轉換回字符。這個偏量可以是從1到255之間的任何數。
PublicFunctionEncryptDecrypt(ByValValueAsString)AsString
DimstrCharAsString
DimintCountAsInteger
DimintASCIIAsInteger
DimstrEncryptedAsString
DimintOffsetAsInteger
intOffset=200
strEncrypted=vbNullString
ForintCount=1ToLen(Value)
strChar=Mid$(Value,intCount,1)
intASCII=Asc(strChar)XorintOffset
strEncrypted=strEncrypted&Chr(intASCII)
NextintCount
EncryptDecrypt=strEncrypted
EndFunction
要使用這個函數，就要對你想要加密的值調用它。它會返回已經過加密的值。要解密一個值，將它傳遞給這個函數，它就會返回已解密的值。
盡管這個函數對於簡單的加密要求來說是很有用的，但是它不應該被用來保護商業上的關鍵信息。這種加密法的簡單性就意味著它能夠被很快的破解。->
