Sub Click(Source As Button)
    Set oXml = CreateObject("Msxml2.DOMDocument")
    oXml.validateOnParse = True
    localFile$ = "c:\XML\OUT\123.xml"
    oXml.LoadXml(localFile$)
    If oXml.parseError.ErrorCode = 0 Then 
        Print( "XML файл валиден!")  
    Else  
        Msgbox ("Ошибка: " & oXml.parseError.reason & " в строке: " & oXml.parseError.line & " позиция: " & oXml.parseError.linepos)
    End If
            '----            
End Sub