XmlReader.ReadElementContentAsObject
Imports System Imports System.IO Imports System.Xml Public Class Sample Public Shared Sub Main() Dim settings As New XmlReaderSettings() settings.ValidationType = ValidationType.Schema settings.Schemas.Add("urn:items", "item.xsd") Dim reader As XmlReader = XmlReader.Create("item.xml", settings) reader.ReadToFollowing("price") Console.WriteLine(reader.ValueType) Dim price As [Decimal] = CType(reader.ReadElementContentAsObject(), [Decimal]) price = [Decimal].Add(price, 2.5D) End Sub End Class