Private Sub CaesarCipherSample()
    ' Sample calls to the CaesarCipher function.

    Debug.Print

    Debug.Print "CaesarCipher(""ATTACK AT DAWN"",  3, CryptoAlphabet) = ";
    Debug.Print IllustrateValue(CaesarCipher("ATTACK AT DAWN", 3, CryptoAlphabet))

    Debug.Print "CaesarCipher(""ATTACK AT DAWN"",  0, CryptoAlphabet) = ";
    Debug.Print IllustrateValue(CaesarCipher("ATTACK AT DAWN", 0, CryptoAlphabet))

    Debug.Print "CaesarCipher(""DWWDFNCDWCGDZQ"", -3, CryptoAlphabet) = ";
    Debug.Print IllustrateValue(CaesarCipher("DWWDFNCDWCGDZQ", -3, CryptoAlphabet))

    Debug.Print "CryptoAlphabet = " & IllustrateValue(CryptoAlphabet)
End Sub