I didn't think it was possible...

While going through some legacy code, I found a real life caesar cipher for encryption.  I guess I shouldn't be surprised.

strNewChar = Chr$(Asc(Mid$(vstrInString, intPos, 1)) + Asc(Mid$(gstrENCRYPT_DECRYPT_KEY, intKeyPos, 1)) - 32)

My colleague informs me it could be worse.  They could have used the generic Mid instead of Mid$.  Because when you've got crappy encryption, it should at least be fast?