Imports System

Imports System.Xml.Serialization

Imports System.Xml

Imports System.IO

​

​

    <XmlRoot("epp", Namespace := "urn:ietf:params:xml:ns:epp-1.0")>

    Public Class EPP

        Public Sub New()

            Response = New Response()

        End Sub

        <XmlElement(ElementName:="response")> _

        Public Property Response As Response

    End Class

​

    <XmlType(Namespace := "urn:ietf:params:xml:ns:epp-1.0")>

    Public Class Response

        Public Sub New()

            result = New result()

            trID = New trID()

        End Sub

        <XmlElement(ElementName:="result")> _

        Public Property result As result

        <XmlElement(ElementName:="trID")> _

        Public Property trID As trID

    End Class

    <XmlType(Namespace := "urn:ietf:params:xml:ns:epp-1.0")>

    Public Class trID

        Public Sub New()

            svTRID = String.Empty

        End Sub

        <XmlElement(ElementName:="svTRID")> _

        Public Property svTRID As String

    End Class

    <XmlType(Namespace := "urn:ietf:params:xml:ns:epp-1.0")>

    Public Class result

        Public Sub New()

            msg = String.Empty

        End Sub

        <XmlElement(ElementName:="msg")> _

        Public Property msg As String

    End Class

​

Public Module Module1

    Public Function GetXml() As String

        Dim xml As String = "<?xml version=""1.0"" encoding=""UTF-8"" standalone=""no""?><epp    xmlns=""urn:ietf:params:xml:ns:epp-1.0""    xmlns:xsi=""http://www.w3.org/2001/XMLSchema-instance""          xsi:schemaLocation=""urn:ietf:params:xml:ns:epp-1.0      epp-1.0.xsd"">    <response>        <result code=""1000"">            <msg>Command completed successfully</msg>        </result>        <trID>            <svTRID>20151019181132-1C16AD22-396-0001</svTRID>        </trID>    </response></epp>"

        Return xml

    End Function

​

    Public Sub Main()

        Dim r As New EPP

        Dim x As New XmlSerializer(r.GetType)

        Using s As New StringReader(GetXml())

            r = x.Deserialize(s)

        End Using

​

        Console.WriteLine("Re-serialized EPP class: ")

        Using w As New StringWriter()

            x.Serialize(w, r)

            Console.WriteLine(w.ToString())

        End Using

    End Sub

End Module