Public Shared Rezepte0(16) As Rezept
    '...
    Public Shared Rezepte8(16) As Rezept
 
 
    Public Rezepte()() As Rezept = {Rezepte0, Rezepte1, ..., Rezepte8}
 
 
    Private Sub SaveToXml()
        Dim xs As New XmlSerializer(Rezepte.GetType())
        Dim sr As New IO.StreamWriter("C:\Rezepte.xml")
        xs.Serialize(sr, Rezepte)
        sr.Close()
    End Sub

________
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