如果要添加新的< item>在< channel>内，然后尝试：

Dim item = New XElement("item",
                       New XElement("title", New XCData(TextBox3.Text)),
                       New XElement("link", TextBox6.Text))
document.Root.Element("channel").Add(item)
document.Save(FilePath)

否则，澄清问题。 

按顺便说一下，既然它是一个Web应用程序，你也应该考虑多用户方面。