Private Sub bnErfassen_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles bnErfassen.Click
 
        Try
            Dim Xn As XmlNode = XDoc.CreateNode(XmlNodeType.Element, "", _
              "item", "")
            Dim Atr As XmlAttribute = XDoc.CreateNode(XmlNodeType.Attribute, _
            "", "NewsNr", "")
            Dim NewsNr As Integer = GetNewNewsNr()
            Atr.InnerText = NewsNr
            Xn.Attributes.Append(Atr)
            Dim XnSub As XmlNode = XDoc.CreateNode(XmlNodeType.Element, "", _
              "link", "")
            XnSub.InnerText = TextBox3.Text
            Xn.AppendChild(XnSub)
            XnSub = XDoc.CreateNode(XmlNodeType.Element, "", "description", "")
            Dim XnDaten As XmlNode = XDoc.CreateNode(XmlNodeType.CDATA, "", _
              "description", "")
            XnDaten.InnerText = TextBox1.Text
            XnSub.AppendChild(XnDaten)
            Xn.AppendChild(XnSub)
            XnSub = XDoc.CreateNode(XmlNodeType.Element, "", "title", "")
            XnSub.InnerText = TextBox2.Text
            Xn.AppendChild(XnSub)
            XDoc.SelectSingleNode("channel").AppendChild(Xn)
            Status(String.Format("News {0} wurde erfasst", NewsNr))
            NewsSpeichern()
            NewsAnzeigen()
            bnErfassen.Enabled = False
            EinfügenToolStripMenuItem.Enabled = False
        Catch ex As SystemException
            Status(ex.Message)
        End Try
    End Sub