Public Sub XMLSerialize()
        Dim xml As New XmlSerializer(kontakte.GetType())
        Dim FS As New FileStream("kontakte.xml", FileMode.Create)
        xml.Serialize(FS, kontakte)
        FS.Close()
    End Sub