Sub doit()
 
        On Error GoTo parseErrorHandler
 
        Dim xd As MSXML2.DOMDocument50
        Dim xs As MSXML2.XMLSchemaCache50
 
        Set xs = CreateObject("MSXML2.XMLSchemaCache.5.0")
        Set xd = CreateObject("MSXML2.DOMDocument.5.0")
 
        'W3C conform
        xs.Add "http://www.w3.org/2001/XMLSchema", "C:\schema.xsd"
 
        Set xd.schemas = xs
 
        xd.async = False
 
        xd.validateOnParse = True
        xd.resolveExternals = True
 
        xd.Load "C:\dasxml.xml"
 
        'xd.validate
 
 
        If xd.parseError.errorCode <> 0 Then
            MsgBox "nix da: " & xd.parseError.reason
        Else
            MsgBox "**Ausgabe:**" & vbCrLf & xd.XML
        End If
 
        Set xs = Nothing
        Set xd = Nothing
 
Exit Sub
 
parseErrorHandler:
 
    MsgBox "ParseError", 64
 
End Sub