VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
END
Attribute VB_Name = "XML_DomDocument"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Option Explicit

Private MSXMLDoc As MSXML2.DOMDocument40

Private Sub Class_Initialize()
    Set MSXMLDoc = New MSXML2.DOMDocument40
End Sub

Private Sub Class_Terminate()
    XMLCleanup
End Sub

Public Property Get Document() As MSXML2.DOMDocument40
    Set Document = MSXMLDoc
End Property

Public Function XMLCleanup()
    Set MSXMLDoc = Nothing
End Function

Public Function OpenDoc(ByVal sName As String) As Boolean
    On Error GoTo ErrCatcher
        If MSXMLDoc Is Nothing Then Exit Function
        MSXMLDoc.Load sName
        OpenDoc = True
        Exit Function
ErrCatcher:
    'Just pass it back out
    If Err.Number <> 0 Then
        Err.Raise Err.Number, Err.Source, Err.Description
    End If
End Function