Lista errori XSD

[SDrago]

Ciao a tutti
é possibile, utilizzando il codice sotto riportato, avere la lista degli errori del file xml e non solo il primo che trova?

Set XML = CreateObject("Msxml2.DOMDocument.6.0")
XML.Async = False
XML.ValidateOnParse = True
XML.ResolveExternals = True
Set SCHEMA = CreateObject("MSXML2.XMLSchemaCache.6.0")
Set XML.schemas = SCHEMA
SCHEMA.Add TNS, XSD_PATH
XML.Load XML_PATH

xmlErrorCode = XML.parseError.errorcode

If xmlErrorCode <> 0 Then..... eccetera

Grazie!

[SDrago]

Nessuno che sappia aiutarmi?