Public Class Person
    Public Property Name As String
    Public Property Age As Integer
    Public Property Address As String
    Public Property Phone As String
    Public Property MobilePhone As String
End Class
 
Public Class PersonBuilder
    Public Function Create(data As String) As Person
        Dim p As New Person
        p.Name = ' read element
        p.Age = ' read element
        ' ...
        Return p
    End Function
End Class
 
Public Class PersonReader
    Private builder As New PersonBuilder
 
    Public Function ReadPersons(file As String) As Person()
        Dim list As New List(Of Person)
        Dim xml As New Xml.XmlDocument
        xml.Load(file)
        For Each personNode As Xml.XmlNode In xml.SelectNodes("Person")
            list.Add(builder.Create(personNode.InnerXml))
        Next
        Return list.ToArray
    End Function
End Class

    Sub Main()
        Dim reader As New PersonReader
        Dim allPersons As Person()
        allPersons = reader.ReadPersons("list.xml")
 
        ' Änderungen dürfen nicht möglich sein:
        allPersons(0).Name = "Bob"
 
        ' Auch das Erzeugen einer neuen Person darf hier nicht möglich sein:
        Dim p1 As New Person
        p1.Name = "Max Mustermann"
        p1.Age = 33
 
        ' Aber das hier darf möglich sein:
        Dim builder As New PersonBuilder
        Dim p2 As Person
        p2 = builder.Create("some xml data")
    End Sub