Public Sub SaveXml(ByVal file As String)
        Using xmlFile As New Xml.XmlTextWriter(file, New _
          System.Text.UnicodeEncoding)
            With xmlFile
                .Formatting = System.Xml.Formatting.Indented
                .Indentation = 6
                .WriteStartDocument()
                .WriteStartElement("Guide")
                For Each projectItem In Me
                    xmlFile.WriteStartElement("Projektdaten")
                    xmlFile.WriteAttributeString("Name", projectItem.Name)
                    xmlFile.WriteElementString("Kunde", projectItem.Kunde)
                    xmlFile.WriteElementString("Kundennummer", _
                      projectItem.Kundennummer)
                    xmlFile.WriteElementString("Ansprechpartner", _
                    projectItem.Ansprechpartner)
                    xmlFile.WriteEndElement()
                Next
                .WriteEndElement()
                .WriteEndDocument()
            End With
        End Using
    End Sub