怎么把 字符串变成XML语句

如何把 字符串变成XML语句
怎么样把   字符串变成XML语句      
大家帮帮呀！
最好能给点代码
没有代码给点参考资料也可以~~~~

------解决方案--------------------
Imports System.Xml

Public Class Form1

Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Dim mystring As String = "张三 男 "
Dim str() As String = mystring.Split( " ")
Dim x As New XmlTextWriter( "D:\d.xml ", System.Text.Encoding.Unicode)
x.WriteStartElement( "item ") ' <item>
x.WriteStartElement( "name ") ' <name>
x.WriteString(str(0)) ' 张三
x.WriteEndElement() ' </name>
x.WriteStartElement( "sex ") ' <sex>
x.WriteString(str(1)) ' 男
x.WriteEndElement() ' </sex>
x.WriteEndElement() ' </item>
x.Close()
MsgBox( "DONE ")
End Sub
End Class
------解决方案--------------------
参考一下:

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim line As String = "张三 男 通大街一路58号 "
Dim itemxml As String = "name sex address "

Dim items As String() = itemxml.Split( " "c)
Dim xml As String = " "
For i As Integer = 0 To items.Length - 1
xml &= String.Format( " <{0}> {{{1}}} </{0}> ", items(i), i)
Next

xml = String.Concat( " <item> ", xml, " </item> ")

Dim values As String() = line.Split( " "c)

xml = String.Format(xml, values)

Console.WriteLine(xml)
End Sub

结果:
<item> <name> 张三 </name> <sex> 男 </sex> <address> 通大街一路58号 </address> </item>
------解决方案--------------------
Public Class XmlStringConvert

Private gQuote As Char = " "c

Private gXmlItemName As String = "item "
Private gXmlItemsLine As String = " "

Private gXmlFormat As String = " "

Public Property Quote() As Char
Get
Return gQuote
End Get
Set(ByVal value As Char)
gQuote = value
End Set
End Property

Public Property XmlItemName() As String
Get
Return gXmlItemName
End Get
Set(ByVal value As String)
gXmlItemName = value
End Set
End Property

Public WriteOnly Property XmlItemsLine() As String
Set(ByVal value As String)
gXmlItemsLine = value
End Set
End Property

Public Sub Reset()
gXmlFormat = " "
End Sub

Private Sub GetFormat()
Dim items As String() = gXmlItemsLine.Split(Me.Quote)
Dim xml As String = " "
For i As Integer = 0 To items.Length - 1
xml &= String.Format( " <{0}> {{{1}}} </{0}> ", items(i), i)
Next

xml = String.Concat( " < ", Me.XmlItemName, "> ", xml, " </ ", Me.XmlItemName, "> ")