dim CryptLength CryptLength = 16 dim CryptKey CryptKey = "FoD5N8sDtGfdx4jI"