Visual Basic.NET - Validar xml con un xsd

Hola tengo el siguiente problema estoy haciendo una aplicacion windows from la cual valida un archivo xml con un esquema.
El problema que tengo es que no se como capturar el tipo de error
ya el error me indica un mensaje de texto
¿Existe alguna manera de saber el tipo de error por ejemplo como un err.number ?

Aca envio el codigo por si alguien me puede ayudar. Gracias

Private txtreader As XmlTextReader = Nothing
Private reader As XmlValidatingReader = Nothing

Public Sub ValidaXML(ByVal Archivo As String)

txtreader = New XmlTextReader(Archivo)
reader = New XmlValidatingReader(txtreader)

AddHandler reader.ValidationEventHandler, AddressOf Me.ValidationEventHandle

end sub

Private Sub ValidationEventHandle(ByVal sender As Object, ByVal args As ValidationEventArgs)
MsgBox( "Error Validación : " & args.Message)

End Sub

Prueva de acoplar esto en tu código, he hecho una aplicación que valida un archivo XML con un XSD y con este código devuelve todos los errores.

declaras el el ValidationEventHandler de esta manera:

Dim valdel As ValidationEventHandler = New ValidationEventHandler(AddressOf ValidationEvent)

y el método ValidationEvent lo defines de esta manera:

Private Sub ValidationEvent(ByVal errorid As Object, ByVal args As ValidationEventArgs)

success = False

MsgBox(Strings.Chr(9) & "Error de validacin: " & args.Message)

If (args.Severity = XmlSeverityType.Warning) Then
MsgBox("No se han encontrado esquemas para forzar la validacin.")
ElseIf (args.Severity = XmlSeverityType.Error) Then
MsgBox("Error de validacin al validar el documento de instancia.")
End If

If Not (args.Exception Is Nothing) Then
MsgBox(args.Exception.SourceUri & "," & args.Exception.LinePosition & "," & args.Exception.LineNumber)
End If

End Sub

Espero que te sirva, tendría que ser así porque a mi me va! Suerte!

Prueva de acoplar esto en tu código, he hecho una aplicación que valida un archivo XML con un XSD y con este código devuelve todos los errores.

declaras el el ValidationEventHandler de esta manera:

Dim valdel As ValidationEventHandler = New ValidationEventHandler(AddressOf ValidationEvent)

y el método ValidationEvent lo defines de esta manera:

Private Sub ValidationEvent(ByVal errorid As Object, ByVal args As ValidationEventArgs)

success = False

MsgBox(Strings.Chr(9) & "Error de validacin: " & args.Message)

If (args.Severity = XmlSeverityType.Warning) Then
MsgBox("No se han encontrado esquemas para forzar la validacin.")
ElseIf (args.Severity = XmlSeverityType.Error) Then
MsgBox("Error de validacin al validar el documento de instancia.")
End If

If Not (args.Exception Is Nothing) Then
MsgBox(args.Exception.SourceUri & "," & args.Exception.LinePosition & "," & args.Exception.LineNumber)
End If

End Sub

Espero que te sirva, tendría que ser así porque a mi me va! Suerte!