请使用 MSXML 对象集。

　　Dim oXmlDoc As DOMDocument
    Dim oXmlNode As IXMLDOMNode
    Dim oXmlNodes As IXMLDOMNodeList
    Dim FileName As String
    Dim i As Long
    
    FileName = App.Path & "\info.xml"
    Set oXmlDoc = New DOMDocument
    oXmlDoc.Load (FileName)
    Set oXmlNodes = oXmlDoc.documentElement.selectNodes(".//INFO")
    For Each oXmlNode In oXmlNodes
        i = i + 1
        If oXmlNode.Attributes(1).Text = "1" Then
            Debug.Print oXmlNode.Attributes(0).Text; i
        End If
    Next
    Set oXmlNode = Nothing
    Set oXmlNodes = Nothing
    Set oXmlDoc = Nothing

Set oXmlNodes = oXmlDoc.documentElement.selectNodes(".//INFO")
出现:
实时错误 '91' ;
对象变量或 With 块变量未设置

怎么处理呢.我引用了MS XML的

要我说，干脆直接打开文件，分行读取到字符串
    然后判断中间有Check="1"的输出