1

 Sub enregistrerPref()

        Dim donneesXML As String = "<?xml version=""1.0"" encoding=""utf-8"" ?>" 'ligne nécessaire pour adhérer au standard
        donneesXML = String.Concat(donneesXML, vbNewLine, "<Enregistrement>") 'notre balise principale
        donneesXML = String.Concat(donneesXML, vbNewLine, vbTab, "<Prenom>" & txtPrenom.Text & "</Prenom>")
        donneesXML = String.Concat(donneesXML, vbNewLine, vbTab, "<Nom>" & txtNom.Text & "</Nom>")
        donneesXML = String.Concat(donneesXML, vbNewLine, "</Enregistrement>")

        'on enregistre sous notre propre extension (et ici, sur le bureau)
        Using sr As New StreamWriter(Environment.GetFolderPath(Environment.SpecialFolder.DesktopDirectory) & "\monExt.test1")
            sr.Write(donneesXML)
        End Using

    End Sub