Sub EncryptAES(strDataToEncrypt As String, strKey As String) As String
Dim kg As KeyGenerator
Dim c As Cipher
Dim B64 As Base64
Dim bconv As ByteConverter
Dim data(0) As Byte
Dim iv(0) As Byte
iv = Array As Byte(211, 5, 233, 24, 55, 166, 7, 88, 2, 1, 4, 5, 6, 7 ,8, 0) ' 16 bytes for AES
c.Initialize("AES/CBC/PKCS5Padding")
c.InitialisationVector = iv
kg.Initialize("AES")
kg.KeyFromBytes(bconv.StringToBytes(strKey,"ASCII"))
data = bconv.StringToBytes(strDataToEncrypt, "ASCII")
data = c.Encrypt(data, kg.Key, True)
Return B64.EncodeBtoS(data, 0, data.Length)
End Sub