Невозможная десериализация другим приложением

Public Class StructToFileClass
    Sub StructToFile(ByVal FileName As String, ByVal O As Object)
        Dim formatter As New Runtime.Serialization.Formatters.Binary.BinaryFormatter()
        Using stream As IO.Stream = IO.File.Create(FileName)
            formatter.Serialize(stream, O)
        End Using
    End Sub
 
    Function FileToStruct(ByVal FileName As String) As Object
        Dim formatter As New Runtime.Serialization.Formatters.Binary.BinaryFormatter()
        Using stream As IO.Stream = IO.File.Open(FileName, IO.FileMode.Open)
            Return formatter.Deserialize(stream)
        End Using
    End Function
    <System.Serializable()> Class Test
        Public S As String
        Public I As Integer
    End Class
End Class

Imports Serial.StructToFileClass
Public Class Form1
 
    Dim S As New Serial.StructToFileClass
    Dim L As New List(Of Test)
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
 
        For I As Integer = 0 To 10
            Dim Tmp As New Test With {.I = I, .S = Guid.NewGuid.ToString}
            L.Add(Tmp)
        Next
        S.StructToFile("C:\Ex.bin", L)
    End Sub
End Class

Imports Serial.StructToFileClass
Public Class Form1
 
    Dim S As New Serial.StructToFileClass
    Dim L As New List(Of Test)
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        L = S.FileToStruct("C:\Ex.bin")
        MsgBox(L(2).S)
    End Sub
End Class

Public Class Class1
    <System.Serializable()> Structure PLCData_Basic
        Dim NumPLC As Integer
        Dim VarinPLC As Integer
        Dim Var() As Integer
        Dim Status As Integer
        Dim IsActualData As Boolean
        Dim NeedSetInPLC As Boolean
    End Structure
 
 
    Public PLCData(20) As PLCData_Basic
 
    Public Function SaveInFile(Path As String) As Integer
        Dim formatter As New Runtime.Serialization.Formatters.Binary.BinaryFormatter()
        Using stream As IO.Stream = IO.File.Create(Path)
            formatter.Serialize(stream, PLCData)
        End Using
        Return 1
    End Function
 
    Public Function ReadFromFile(Path As String) As Integer
        Dim formatter As New Runtime.Serialization.Formatters.Binary.BinaryFormatter()
        Using stream As IO.Stream = IO.File.Open(Path, IO.FileMode.Open)
            PLCData = formatter.Deserialize(stream)
        End Using
        Return 1
    End Function
End Class

    Dim Serialz As New SerializLib1.Class1
        Serialz.PLCData = PLCData
        Serialz.SaveInFile(MyPath)