Private Sub MIMESample()
    'Test the MIMEEncode and MIMEDecode functions.

    Dim strSample$, strCode$, strPlain$
    strSample = Gettysburg

    Debug.Print "Encoding: " & MIMEEncode(strSample, strCode)
    Debug.Print "ENCODED:"
    Debug.Print strCode
    Debug.Print "Decoding: " & MIMEDecode(strCode, strPlain)
    Debug.Print "DECODED:"
    Debug.Print strPlain
    Debug.Print "Same? " & (StrComp(strPlain, strSample, vbBinaryCompare) = 0)
End Sub