'------------------------------------------------------------
'Aleksey S Nemiro, http://aleksey.nemiro.ru
'Special for Kbyte.Ru http://kbyte.ru
'31.10.2007
'------------------------------------------------------------

'Создаем два класса, названия значений не имеют, все имена для XML можно прописать отдельно в атрибутах

Public Class KbyteDotRu
<XmlArrayItem("b")> _
<XmlArray("a")> _
Public ZdesLuboiTextMojetBut() As b
End Class

Public Class b
<XmlAttribute("name")> _
Public OiAPochemuTutTakNapisano As String
Public Sub New()

End Sub
Public Sub New(ByVal s As String)
 OiAPochemuTutTakNapisano = s
End Sub
End Class

'Сериализация
'Разместите на форме Button и TextBox.
'Также может потребоваться импортировать пространство имен:
'Imports System.IO
'Imports System.Xml
'Imports System.Xml.Serialization

'Код сериализации:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim kbyte As New KbyteDotRu
kbyte.ZdesLuboiTextMojetBut = New b() {New b("1"), New b("2"), New b("3")}
Dim mySerializer As New Xml.Serialization.XmlSerializer(GetType(KbyteDotRu))
Dim myStream As New IO.MemoryStream()
Dim myWriter As New IO.StreamWriter(myStream)
mySerializer.Serialize(myWriter, kbyte)
myWriter.Close()

TextBox1.Text = System.Text.Encoding.UTF8.GetString(myStream.ToArray())
End Sub