This runs very fast and has a variety of uses.
NOTE: The key must be a least as long as the string being encrypted. You use the function to both encrypt and decrypt. To decrypt, pass the encrypted string with the same key which was used for the encryptoion.
Instructions: Copy the declarations and code below and paste directly into your VB project.