Public Function DecryptAsBytes(ByVal data() As Byte) As Byte()
 
    Dim rm As RijndaelManaged = New RijndaelManaged
 
    Using memory As New MemoryStream(data)
        Using crypto As New CryptoStream(memory, rm.CreateDecryptor( _
          _PartnerSymmetricKey, _PartnerSymmetricIV), CryptoStreamMode.Read)
 
            Using writeStream As New MemoryStream()
 
                crypto.CopyTo(writeStream, 4096)
 
                Return writeStream.ToArray()
 
            End Using
        End Using
    End Using
 
End Function