Private Sub xmlSpeichern(Of T)(ByVal obj As T)
        Dim meineSerialisierer As New XmlSerializer(GetType(T))
        Using sw As New IO.StreamWriter(Tnliste)
            meineSerialisierer.Serialize(sw, obj)
        End Using
    End Sub
 
    Private Function xmlLesen(Of T)() As T
        Dim meineSerialisierer As New XmlSerializer(GetType(T))
        Using sr As New IO.StreamReader(Tnliste)
            Return CType(meineSerialisierer.Deserialize(sr), T)
        End Using
    End Function

Personen2 = xt.xmlLesen(Of List(Of Teilnehmer))()

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist