Sub FindNode() Dim oXmlDoc As DOMDocument Dim oXmlNode As IXMLDOMNode Dim oXmlNodes As IXMLDOMNodeList Set oXmlDoc = New DOMDocument oXmlDoc.async = False oXmlDoc.Load (ThisWorkbook.Path & "\EmployeeSales.xml") Set oXmlNodes = oXmlDoc.SelectNodes("/EmployeeSales/Employee/Empid") For Each oXmlNode In oXmlNodes Debug.Print oXmlNode.Text Next End Sub