VB6で non well-formed な xml 文書から DOM を得る

HTMLDocument の動的な作成: Days on the Moon
を参考にやってみた。

Sub parseXml()
    
    Dim html        As Object   ' ※レイトバインディングしないと、write() メソッドの呼び出しがコンパイルエラーになる。
    Dim fso         As Scripting.FileSystemObject
    Dim el          As HTMLUnknownElement
    
    Set fso = New FileSystemObject
    Set html = New MSHTML.HTMLDocument
    
    '   Non well-formed なxmlを読み込み、HTMLDocumenオブジェクトの中に流し込む
    html.open "text/html"
    html.write fso.OpenTextFile("Path\To\Target.xml").ReadAll
    
    '   <HOGE> タグの NAME 属性の値を列挙する
    For Each el In html.getElementsByTagName("HOGE")
        Debug.Print el.Attributes("NAME").Value
    Next
    
    Set el = Nothing
    Set html = Nothing
    Set fso = Nothing

End Sub

参考リンク

HTMLDocument の動的な作成: Days on the Moon
microsoft.public.vb.syntax: Re: HTMLDocument.Write() method in VB6