正在尝试将列表对象写入XML (VB.net)

Imports System.Xml

Public Class Program
    Public Shared Sub Main()
        ' 创建一个列表对象
        Dim myList As New List(Of String)()
        myList.Add("Item 1")
        myList.Add("Item 2")
        myList.Add("Item 3")

        ' 创建一个XmlWriter对象，将数据写入XML
        Using writer As XmlWriter = XmlWriter.Create("output.xml")
            writer.WriteStartDocument()
            writer.WriteStartElement("Items")

            ' 遍历列表对象，将每个元素写入XML
            For Each item As String In myList
                writer.WriteStartElement("Item")
                writer.WriteValue(item)
                writer.WriteEndElement()
            Next

            writer.WriteEndElement()
            writer.WriteEndDocument()
        End Using

        Console.WriteLine("XML写入完成。")
    End Sub
End Class

<?xml version="1.0" encoding="utf-8"?>
<Items>
  <Item>Item 1</Item>
  <Item>Item 2</Item>
  <Item>Item 3</Item>
</Items>