écriture d'un fichier xml

Bonjour,

Voilà j'essaie d'écrire depuis un formulaire un fichier xml du type

<rss version="2.0">
  <channel>
    ....
        <item>
          <id></id>
          <title></title>
          <link></link>
          <description>
           </description>
          <pubDate></pubDate>
        </item>
    </channel>
</rss>

L'écriture du fichier fonctionne mais mon nouvel enregistrement se retrouve placé entre </channel> et  </rss>
Je souchaiterais pouvoir enregistrer avant </channel>.

Voila mon code:

Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs)
        
         Dim doc As New XmlDocument
         doc.Load("monfichier.xml")
         Dim melement As XmlElement
         melement = doc.CreateElement("item")
       
         Dim msubelement As XmlElement
         msubelement = doc.CreateElement("id")
         msubelement.InnerText = getlastid() + 1
         melement.AppendChild(msubelement)
        
         msubelement = doc.CreateElement("title")
         msubelement.InnerText = TextBox1.Text
         melement.AppendChild(msubelement)
       
         msubelement = doc.CreateElement("link")
         msubelement.InnerText = TextBox2.Text
         melement.AppendChild(msubelement)
       
         msubelement = doc.CreateElement("description")
         msubelement.InnerText = TextBox3.Text
         melement.AppendChild(msubelement)
        
         msubelement = doc.CreateElement("pubDate")
         msubelement.InnerText = TextBox4.Text
         melement.AppendChild(msubelement)
       
       
               
         doc.DocumentElement.AppendChild(melement)
         doc.Save("monfichier.xml")

Merci de votre aide.