'// Eine Bsp. Klasse welche als "Serialisierbar" markiert ist.
<Serializable()> Public Class person
    Public Vorname As String
    Public Nachname As String
    Public Sub New(ByVal Vorname As String, ByVal Nachname As String)
        Me.Vorname = Vorname
        Me.Nachname = Nachname
    End Sub
End Class

'// serialisieren
Dim ser As New System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
Dim ms As New IO.MemoryStream
Dim per As New person("Waldi", "Maywood")
ser.Serialize(ms, per)
Me.objDataTable.Rows(Me.BindingContext(Me.objDataView).Position)("Person") = _
  ms.ToArray '// musst du anpassen

'// de-serialisieren
        Try
            Dim ser As New _
              System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
            Dim b() As Byte = Me.objDataTable.Rows(Me.BindingContext( _
            Me.objDataView).Position)("Person") '// musst du anpassen
            Dim ms As New IO.MemoryStream(b)
            Dim per As person
            per = DirectCast(ser.Deserialize(ms), person)
            Debug.WriteLine(per.Nachname + ", " + per.Vorname)
        Catch ex As Exception
            MessageBox.Show(ex.ToString)
        End Try