Dim oPerson = New Employee With {.FirstName = "Joe",
                                 .FamilyName = "Bloggs",
                                 .DateOfBirth = "1995/03/02",
                                 .Occupation = "Student",
                                 .Salary = 33300,
                                 .TaxCode = "999L",
                                 .LastPayDate = "29/08/2014"}

    oPerson.ListOfAddresses.Add(New Address With {.AddressType = "Home",
                                                  .HouseNumberOrName = "437",
                                                  .AddressLine1 = "Mayfair Road",
                                                  .AddressLine2 = "London",
                                                  .Country = "UK",
                                                  .PostalCode = "SW1"
                                                  })

    oPerson.ListOfAddresses.Add(New Address With {.AddressType = "PreivousAddress",
                                             .HouseNumberOrName = "Pickett House",
                                             .AddressLine1 = "Any Old Road",
                                             .AddressLine2 = "London",
                                             .Country = "UK",
                                             .PostalCode = "SW1"
                                             })

Dim sFileName As String = "MyNewXMLFile.XML"

Using objStreamWriter As New StreamWriter(sFileName)
    Dim x As New XmlSerializer(oPerson.GetType)
    x.Serialize(objStreamWriter, oPerson)
    objStreamWriter.Close()
    x = Nothing
End Using