C# / VB.NET - [VB:NET] Scrivere in file XML modalità aggiunta

Ciao a tutti,
io avrei bisogno di scrivere in un file xml e fin cui tutto va bene ma quando rieseguo il programma per aggiungere altri dati mi cancella quelli precedenti,
come faccio ad aggiunere dati aggiungendoli sotto agli altri ?
Grazie come al solito

msdn.microsoft.com/it-it/library/…
Classe XmlDocument, funzione Load per caricare un file xml, funzione AppendChild per aggiungere un nodo alla fine del nodo corrente (se appena aperto, penso che il nodo corrente sia il root).

Sono io forse che non capisco, ma con una cosa del genere non capisco dove inserirlo, anche per questioni di tempo, non per stupidità :

    Private Sub btnOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOK.Click

        'Scrive in un file XML

        'Crea un file chiamato callCenter.xml
        Dim fileXML As XmlTextWriter = New XmlTextWriter(Application.StartupPath + "\callCenter.xml", System.Text.Encoding.UTF8)

        'Setta la struttura del file indendato
        fileXML.Formatting = System.Xml.Formatting.Indented
        fileXML.WriteStartDocument(True)

        'Inizia la scrittura nel file XML
        fileXML.WriteStartElement("Dati Contatto")
        fileXML.WriteElementString("Nome-Azienda", txtNome.Text)
        fileXML.WriteElementString(lblCognome.Text, txtCognome.Text)
        fileXML.WriteElementString(lblCitta.Text, txtCitta.Text)
        fileXML.WriteElementString(lblTelefono.Text, txtTelefono.Text)
        fileXML.WriteElementString(lblFax.Text, txtFax.Text)
        fileXML.WriteElementString(lblMail.Text, txtEmail.Text)
        fileXML.WriteElementString(lblDataChiamata.Text, txtData.Text)
        fileXML.WriteElementString(lblAgente.Text, txtAgente.Text)
        fileXML.WriteElementString(lblNote.Text, txtNote.Text)
        fileXML.WriteEndElement()
        fileXML.Close()
    End Sub