Обмен данными между двумя программами

Imports System.IO.MemoryMappedFiles
Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim message As Char() = TextBox1.Text 'Текст сообщения
        Dim sz As Integer = message.Length 'Размер сообщения
        'Разделяемая память имеет формат: Имя/Размер/Сообщение
        'Здесь sz*2 - размер сообщения в байтах (Тип Char - 2 байта)
        '+4 - добавляем еще 4 байта для записи размера (тип Integer - 4 байта)
        Dim mappedFile As MemoryMappedFile = MemoryMappedFile.CreateOrOpen("MyMessage", sz * 2 + 4)
        'Создаем объект для записи в разделяемую память
        Using writer As MemoryMappedViewAccessor = mappedFile.CreateViewAccessor(0, sz * 2 + 4)
            writer.Write(0, sz) 'записываем размер сообщения
            writer.WriteArray(Of Char)(4, message, 0, message.Length) 'записываем сообщение начиная с четвертого байта
        End Using
        MsgBox("Сообщение отправлено")
    End Sub
End Class

Imports System.IO.MemoryMappedFiles
Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
 
        Dim message As Char() 'Массив для сообщения 
        Dim sz As Integer     'Размер полученного сообщения
        
        Dim mappedFile As MemoryMappedFile = MemoryMappedFile.OpenExisting("MyMessage", sz * 2 + 4)
        'Считываем размер сообщения
        Using reader As MemoryMappedViewAccessor = mappedFile.CreateViewAccessor(0, 4, MemoryMappedFileAccess.Read)
            sz = reader.ReadInt32(0)
        End Using
        'Считываем сообщение
        Using reader As MemoryMappedViewAccessor = mappedFile.CreateViewAccessor(4, sz * 2, MemoryMappedFileAccess.Read)
            message = New Char(sz - 1) {}
            reader.ReadArray(Of Char)(0, message, 0, sz)
        End Using
        MsgBox(message)
    End Sub
End Class