Сериализация для обмена данными между компьютерами

Imports System.Runtime.Serialization.Formatters.Binary
Imports System.IO
Imports System.Runtime.Serialization
 
Public Class Form1
    'Сериализация
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim fs As New FileStream("c:\sertabl.txt", FileMode.Create)
        Dim formatter As New BinaryFormatter()
 
        Dim tabl As New Dictionary(Of String, String) 'Создаем таблицу
        tabl.Add("Вася", "8-920-123-45-67")
        tabl.Add("Петя", "8-920-765-43-21")
        tabl.Add("Маша", "02")
 
        Try
            formatter.Serialize(fs, tabl)  'Сериализуем
        Catch ex As SerializationException
            MsgBox(ex.Message)
        Finally
            fs.Close()
        End Try
    End Sub
 
    'Десериализация
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim fs As New FileStream("c:\sertabl.txt", FileMode.Open)
        Dim formatter As New BinaryFormatter()
        Dim str As String = ""
        Dim tabl As New Dictionary(Of String, String)
 
        Try
            tabl = CType(formatter.Deserialize(fs), Dictionary(Of String, String))
        Catch ex As SerializationException
            MsgBox(ex.Message)
        Finally
            fs.Close()
        End Try
 
        For Each line In tabl
            MsgBox(line.Key & "   " & line.Value)
        Next
    End Sub
End Class