LISTING 4: Code to Implement the SAX2 Error Handler Class in VB
VERSION 1.0 CLASS

BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "MyErrorHandler"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Option Explicit
'Implement SAX interfaces.
Implements IVBSAXErrorHandler
'Declare a validation flag.
Dim m_ValidationError As Boolean
Private Sub Class_Initialize()
  m_ValidationError = False
End Sub

Private Sub IVBSAXErrorHandler_error(ByVal oLocator As MSXML2.IVBSAXLocator, 
strErrorMessage As String, ByVal nErrorCode As Long)
  m_ValidationError = True
End Sub

Private Sub IVBSAXErrorHandler_fatalError(ByVal oLocator As MSXML2.IVBSAXLocator, 
strErrorMessage As String, ByVal nErrorCode As Long)
  m_ValidationError = True
End Sub

Private Sub IVBSAXErrorHandler_ignorableWarning(ByVal oLocator As 
MSXML2.IVBSAXLocator, strErrorMessage As String, ByVal nErrorCode As Long)
End Sub

Public Property Get validationError() As Variant
  validationError = m_ValidationError
End Property