Public Class Form1
    Private data As New TextDaten
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        Dim s As New Infos(TextBox1.Text, TextBox2.Text, TextBox3.Text)
        data.SaveList.Add(s)
    End Sub
 
    Private Sub SaveList(ByVal path As String)
        Serializer.Serialize(path, data)
    End Sub
    Private Sub LoadList(ByVal path As String)
        data = Serializer.DeSerialize(Of TextDaten)(path)
    End Sub
 
End Class
 
<Serializable()> _
Public Class TextDaten
    Private mSaveList As New List(Of Infos)
    Public Property SaveList() As List(Of Infos)
        Get
            Return mSaveList
        End Get
        Set(ByVal value As List(Of Infos))
            mSaveList = value
        End Set
    End Property
End Class
 
 
<Serializable()> _
Public Structure Infos
    Public Frage As String
    Public Antwort As String
    Public Beschreibung As String
    Public Sub New(ByVal f As String, ByVal a As String, ByVal b As String)
        Frage = f
        Antwort = a
        Beschreibung = b
    End Sub
End Structure