Public Function DecryptAsBytes(ByVal Data() As Byte) As Byte()
	Dim RM As RijndaelManaged
	Dim Crypto As CryptoStream
	Dim Memory As MemoryStream
	Dim ReturnBytes() As Byte
 
	RM = New RijndaelManaged
	Memory = New MemoryStream(Data)
 
	Crypto = New CryptoStream(Memory, RM.CreateDecryptor(_PartnerSymmetricKey, _
  _PartnerSymmetricIV), CryptoStreamMode.Read)
	ReDim ReturnBytes(Data.Length - 1)
 
	Crypto.Read(ReturnBytes, 0, ReturnBytes.Length)
 
	Memory.Dispose()
	Crypto.Dispose()
 
	Return ReturnBytes
End Function