Public NotInheritable Class Person
 
  Private Sub New(data As String)
    Name = "" ' read element
    Age = 0 ' read element
    Address = ""
    Phone = ""
    MobilePhone = ""
  End Sub
 
  ReadOnly Property Name As String
  ReadOnly Property Age As Integer
  ReadOnly Property Address As String
  ReadOnly Property Phone As String
  ReadOnly Property MobilePhone As String
 
  Public Shared 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(New Person(personNode.InnerXml))
    Next
    Return list.ToArray
  End Function
 
End Class

Dim allPersons As Person() = Person.ReadPersons("list.xml")