Structure TypAE
        <VBFixedString(20)> Friend ModulName1 As String
        <VBFixedString(20)> Friend ModulName2 As String
        Friend Freigabe As Int16
        Friend EingTyp As Int16
        <VBFixedString(13)> Friend Verschaltung As String
        Friend MeßbereichEnde As Single
        Friend MeßbereichAnfang As Single
        Friend Offset As Single
        Friend Einheit As Int16
        Friend Abtastzeit As Single
        Friend Filterung As Single
        <VBFixedArray(3)> Friend RuntimeDaten() As Single
 
        Sub New(ByVal x As Boolean)
            If x Then
                ModulName1 = New String(" ", 20)
                ModulName2 = New String(" ", 20)
                Verschaltung = New String(" ", 13)
                ReDim RuntimeDaten(3)
            End If
 
        End Sub
    End Structure

Dim Typ_AE As New TypAE(True)
FileOpen(Moduldatei, Dateiname, OpenMode.Binary, OpenAccess.Write, _
  OpenShare.Default, Datensatzlänge)
        FilePut(Moduldatei, Typ_AE, AENr)
FileClose(Moduldatei)

Dim binForm As New _
  System.Runtime.Serialization.Formatters.Binary.BinaryFormatter()
Dim fs As New System.IO.FileStream(Dateiname, IO.FileMode.OpenOrCreate, _
IO.FileAccess.Write)
        binForm.Serialize(fs, Typ_AE)
        fs.Close()