Private Sub serializeSample() Dim person As Person = New Person person.Name = New PersonName("ŽR“c", "‘¾˜Y") person.Age = 17 Dim serializer As XmlSerializer = New XmlSerializer(GetType(Person)) Dim stream As FileStream = New FileStream("c:\sample.xml", FileMode.Create) Try serializer.Serialize(stream, person) Finally stream.Close() End Try End Sub