Sub DumpBlock(p_xmlDoc As DOMDocument, p_BlockName As String)
 ' 
Dim v_objectNode As IXMLDOMElement
Dim v_propertyNode As IXMLDOMElement
 ' 
For Each v_objectNode In p_xmlDoc.documentElement.selectNodes("//Block")
   If v_objectNode.getAttributeNode("Name").Text = p_BlockName Then
     For Each v_propertyNode In v_objectNode.selectNodes("//Item")
       '************* 
       ' Тут падает с ошибкой 91 
       '************* 
       ' На этом If вываливается указанная ошибка  
      If v_propertyNode.getAttributeNode("Visible").Text = "true" Then 
         MsgBox "True" 
      End If
    Next
   End If
Next
End Sub