对象转化成二进制数组：请问这道题目有没有更简单的方法？

Question

如何使用序列化技术将对象转化成二进制数组，再将数组转换成二进制对象？我是这样做的，前面的名空间定义省了
    '二进制数组转化成对象
    Public Shared Function BinToMsg(ByVal Bin() As Byte) As CMessage
        Dim Formatter As New BinaryFormatter                                            '定义序列化对象
        Dim StreamTemp As New MemoryStream(Bin)                                         '数组->内存流
        Dim Message As CMessage = CType(Formatter.Deserialize(StreamTemp), CMessage)    '内存流->对象
        StreamTemp.Close()
        Return Message
    End Function    '命令转化成二进制数组
    Public Shared Function MsgToBin(ByVal Message As CMessage) As Byte()
        Dim StreamTemp As New MemoryStream                                              '定义流对象
        Dim Formatter As New BinaryFormatter                                            '定义序列化对象
        Formatter.Serialize(StreamTemp, Message)                                        '对象->内存流
        StreamTemp.Close()
        Return StreamTemp.GetBuffer()                                                   '内存流->数组
    End Function
不知各位高手有没有代码更短，效率更高的解？

Answer 1

API ReadProcessMemory,WriteProcessMeory
效率可能高,不过代码不会更短

Answer 2

在.NET里面这个应该是最简短的解决方法，只要对象支持序列化就可以使用这中方法。