Public Class Verwaltung
 
  Public Structure Kunde
    Dim Kundennummer As Long
    Dim Vorname As String
    Dim Nachname As String
  End Structure
 
  <XmlElement("Kunde")>
  Public ListOfCustomers As New List(Of Kunde)
 
End Class

  Public Sub SchreibeXml(obj As Object, pfad As String, ns As _
    XmlSerializerNamespaces)
    If obj Is Nothing Then Throw New ArgumentNullException("obj")
    Dim fs As IO.FileStream = Nothing
    Try
      fs = New IO.FileStream(pfad, IO.FileMode.Create, IO.FileAccess.Write)
      Dim xs As New Xml.Serialization.XmlSerializer(obj.GetType)
      xs.Serialize(fs, obj, ns) 'speichern
    Catch ex As Exception
      MsgBox(ex.Message & vbNewLine & pfad, MsgBoxStyle.Critical, _
        "Serialisation-" & obj.ToString)
    Finally
      If fs IsNot Nothing Then fs.Close()
    End Try
  End Sub
 
  Public Sub Speichern()
    Dim ordner = My.Computer.FileSystem.SpecialDirectories.Desktop
    Dim datei = IO.Path.Combine(ordner, "Test.xml")
    Dim ns As New Xml.Serialization.XmlSerializerNamespaces()
    'Hier eventuell weitere Namespace hinzufügen
    'ns.Add("kd", "http://www.beispiel.com/xmlschemas/v1")
    '------------------------------
    Dim v As New Verwaltung
    Dim k As New Verwaltung.Kunde
    k.Kundennummer = 1
    k.Vorname = "Hans"
    k.Nachname = "Meier"
    v.ListOfCustomers.Add(k)
    k.Kundennummer = 2
    k.Vorname = "Paul"
    k.Nachname = "Schnürschuh"
    v.ListOfCustomers.Add(k)
    '------------------------------
    SchreibeXml(v, datei, ns)
  End Sub

<?xml version="1.0"?>
<Verwaltung xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" _
  xmlns:xsd="http://www.w3.org/2001/XMLSchema">
  <Kunde>
    <Kundennummer>1</Kundennummer>
    <Vorname>Hans</Vorname>
    <Nachname>Meier</Nachname>
  </Kunde>
  <Kunde>
    <Kundennummer>2</Kundennummer>
    <Vorname>Paul</Vorname>
    <Nachname>Schnürschuh</Nachname>
  </Kunde>
</Verwaltung>