Validating XML with XSD using MSXML2.DOMDocument in vb6

Public Function ValidateXML(ByVal sXMLPath As String, ByVal sXSDPath As String) As String
Dim sNamespace As String
Dim objSchemas As Object
Dim oXML As Object
Dim oXSD As Object
Dim oErr As Object
    
    On Error Resume Next
    ValidateXML = ""
    
    'Load XSD as DOM to populate in Schema Cache
    Set oXSD = CreateObject("MSXML2.DOMDocument.4.0")
    If Err.number <> 0 Then
        ValidateXML = "Fail - ActiveX Component Load failure"
        Exit Function
    End If
    oXSD.async = False
    If Not oXSD.Load(sXSDPath) Then
        ValidateXML = "Fail - XSD Load failure"
        Exit Function
    Else
        'Get namespace name from XSD TargetNamespace attribute
        sNamespace = oXSD.documentElement.getAttribute("targetNamespace")
    End If
   
    'Populate schema cache
    Set objSchemas = CreateObject("MSXML2.XMLSchemaCache.4.0")
    If Err.number <> 0 Then
        ValidateXML = "Fail - ActiveX Component Load failure"
        Exit Function
    End If
    objSchemas.Add sNamespace, oXSD
   
    'Load XML file (without validation - that comes later)
    Set oXML = CreateObject("MSXML2.DOMDocument.4.0")
    If Err.number <> 0 Then
        ValidateXML = "Fail - ActiveX Component Load failure"
        Exit Function
    End If
    oXML.async = False
    oXML.validateOnParse = False
    oXML.resolveExternals = False
   
    'Load XML, without any validation
    If Not oXML.Load(sXMLPath) Then
        ValidateXML = "Fail - XML Load failure"
        Exit Function
    End If
   
    'Bind Schema Cache to DOM
    Set oXML.schemas = objSchemas
   
    'Does this XML measure up?
    Set oErr = oXML.Validate()
 
    If oErr.errorCode <> 0 Then
        ValidateXML = "Fail - " & oErr.reason
    Else
        ValidateXML = ""
    End If
End Function