Imports System

Imports System.Collections.Generic

Imports System.IO

Imports System.Xml.Serialization

Public Module Module1

    Public Sub Main()

        Dim details = New List(Of CustomerDetails) From { New CustomerDetails() With {.Acronym = "MSD", .FriendlyName = "Main Street Diner" } }

        Dim serializer = New XmlSerializer(details.GetType())

        Dim xmlLiteral = String.Empty

        Using writer = New StringWriter()

            serializer.Serialize(writer, details)

            xmlLiteral = writer.ToString()

        End Using

​

        Console.WriteLine(xmlLiteral)

    End Sub

End Module

​

Public Class CustomerDetails

    <XmlAttribute>

    Public Property Acronym As String

    Public Property FriendlyName As String

End Class