Public Function EncryptOrDecryptBytes(ByVal inp As Byte(), _
                ByVal bytKey() As Byte, _
                ByVal bytIV() As Byte, _
                ByVal Direction As CryptoAction, _
                ByVal padding As Security.Cryptography.PaddingMode, _
                ByVal mode As System.Security.Cryptography.CipherMode) As Byte()
 
        Dim fsOutput As New System.IO.MemoryStream()
        Dim csCryptoStream As Security.Cryptography.CryptoStream
        Dim cspRijndael As New System.Security.Cryptography.AesManaged
        Dim ict As ICryptoTransform = Nothing
 
        cspRijndael.Mode = mode
        cspRijndael.Padding = padding
 
        Select Case Direction
            Case CryptoAction.ActionEncrypt
                ict = cspRijndael.CreateEncryptor(bytKey, bytIV)
            Case CryptoAction.ActionDecrypt
                ict = cspRijndael.CreateDecryptor(bytKey, bytIV)
            Case Else
                Return Nothing
        End Select
 
        Try
            csCryptoStream = New Security.Cryptography.CryptoStream(fsOutput, _
                   ict, _
                   Security.Cryptography.CryptoStreamMode.Write)
            csCryptoStream.Write(inp, 0, inp.Length)
            csCryptoStream.FlushFinalBlock()
            csCryptoStream.Close()
        Catch ex As Exception
            MsgBox(ex.ToString())
        End Try
 
        Return fsOutput.ToArray()
 
    End Function

Those people who think they know everything are a great annoyance to those of us who do - Isaac Asimov