Option Explicit

Dim dom As DOMDocument30

Private Sub Command1_Click()
Dim dctype As IXMLDOMDocumentType
Set dom = New DOMDocument30
'dom.Load "c:\ConfS.xml"
dom.loadXML "<?xml version=""1.0"" encoding=""UTF-8""?>" _
& "<?xml-stylesheet type=""text/xsl"" href=""show_book.xsl""?>" _
& "<!DOCTYPE Capability SYSTEM ""c:\obex-capability.dtd"">" _
& "<!--catalog last updated 2000-11-01-->" _
& "<Capability version=""1.0"" />"

End Sub

