Imports System

Imports System.Xml.Serialization

Imports System.Xml

Imports System.IO

Imports System.Xml.Linq

Imports System.Collections.Generic

Imports System.Linq

​

<XmlRoot("myvar")> _

Public Class MyVar

    <XmlElement("var")> Public name As String

    <XmlElement("troublecodes")> Public troubleCodes As TroubleCodes

End Class

​

Public Class TroubleCodes

    <XmlElement("troublecode")> Public troubleCode() As TroubleCode

    <XmlElement("statusbyte")> Public statusByte() As StatusByte

End Class

​

Public Class TroubleCode

    <XmlElement("one")> Public one As String

    <XmlElement("two")> Public two As String

End Class

​

Public Class StatusByte

    <XmlElement("three")> Public three As String

    <XmlElement("four")> Public four As String

End Class

​

Public Module Module1

    Public Sub Main()

        Dim xml as String = <myvar>

    <var>...</var>

    <troublecodes>

        <troublecode>

            <one>one</one>

            <two>two</two>

        </troublecode>

        <troublecode>

        ....

        </troublecode>

        <statusbyte>

            <three>three</three>

            <four>four</four>

        </statusbyte>

        <statusbyte>

        ....

        </statusbyte>

        <statusbyte>

        ....

        </statusbyte>

    </troublecodes>

</myvar>.ToString()

​

        Dim myVar = XmlSerializationHelper.LoadFromXML(Of MyVar)(xml)

        Dim newXml = myVar.GetXml(true)

        Console.WriteLine(newXml)

    End Sub

End Module

​

Public Module XmlSerializationHelper

    <System.Runtime.CompilerServices.Extension> _

    Public Function LoadFromXML(Of T)(xmlString As String) As T

        Using reader As New StringReader(xmlString)

            Return DirectCast(New XmlSerializer(GetType(T)).Deserialize(reader), T)

        End Using

    End Function

​

    <System.Runtime.CompilerServices.Extension> _

    Public Function GetXml(Of T)(obj As T, Optional omitStandardNamespaces As Boolean = False) As String

        Dim ns As XmlSerializerNamespaces = Nothing

        If omitStandardNamespaces Then

            ns = New XmlSerializerNamespaces()

                ' Disable the xmlns:xsi and xmlns:xsd lines.

            ns.Add("", "")

        End If

        Using textWriter = New StringWriter()

            Dim settings = New XmlWriterSettings() With { _

                .Indent = True _

            }

            ' For cosmetic purposes.

            Using xmlWriter = System.Xml.XmlWriter.Create(textWriter, settings)

                Dim serializer as New XmlSerializer(obj.GetType()) 

                serializer.Serialize(xmlWriter, obj, ns)

            End Using

            Return textWriter.ToString()

        End Using

    End Function

End Module

​