vb.net 写入 XML

        If TextBox1.Text = "" Then
            MsgBox("滚动公告信息不能为空。", MsgBoxStyle.Information, "提示")
            Exit Sub
        Else
            Dim mssqla As String
            mssqla = "Activitie  title='"
            mssqla = mssqla + TextBox1.Text
            mssqla = mssqla + "'"
            Try
                Dim XmlWrite As System.Xml.XmlTextWriter = New System.Xml.XmlTextWriter("E:\flashgame\game\top.xml", System.Text.Encoding.UTF8)
                XmlWrite.WriteStartDocument() '开始一个文档
                XmlWrite.WriteStartElement("Activities")
                XmlWrite.WriteStartElement(mssqla) '开始一个元素,根元素
                XmlWrite.WriteEndElement() '关闭元素root
                XmlWrite.WriteEndDocument() '文档结束
                XmlWrite.Flush() '刷新
                XmlWrite.Close() '关闭


            Catch ex As Exception
            End Try
            MsgBox("滚动公告保存成功！", MsgBoxStyle.Information, "提示")
        End If