VB et XML saut de ligne

Bonjour,
Quand je test l'exemple ci-dessous, le résultat et dans un fichier sur
une seule ligne, comment avoir le résultat indenté (retour chariot et
tabulation) ?
J'ai testé avec MSXML v3.0, MSXML v4.0, MSXML v6.0 mais j'ai toujour le
même problème.

Nb: j'ai déja posé la question sur microsoft.public.fr.xml, mais le
forum semble plutôt moribond.

JGP



Sub creerFichierXML2()
' source http://www.c2i.fr/code.asp?IDCode=21
Dim objDOM As DOMDocument, XnodeRoor As IXMLDOMElement, Xnode As
IXMLDOMElement
Set objDOM = New DOMDocument 'création de l'objet document
Set XNodeRoot = objDOM.createElement("Sites") 'création de l'objet
racine Sites
objDOM.appendChild XNodeRoot 'ajout du noeud racine au document

Set Xnode = objDOM.createElement("Site") 'création de l'objet noeud
Xnode.setAttribute "URL", "www.c2i.fr" 'ajout des attributs au noeud
Xnode.Text = "Le site de c2i" 'ajout du texte pour le noeud
XNodeRoot.appendChild Xnode 'ajout du noeud fils au noeud racine
'il suffit maintenant de faire la même chose avec le noeud suivant >
Set Xnode = objDOM.createElement("Site")
Xnode.setAttribute "URL", "www.microsoft.com/france"
Xnode.Text = "Le site de Microsoft France"
XNodeRoot.appendChild Xnode

objDOM.Save "c:\exemple.xml" 'sauvegarde du fichier
Set XNodeRoot = Nothing
Set Xnode = Nothing
Set objDOM = Nothing
End Sub