< Unit Specification="oun"> < Unit Specification="oen">1558 < Unit Specification="scaleA">104 < Unit Specification="scaleB">456 < Unit Specification="scaleC"> < Unit Specification="scaleA">4514 < Unit Specification="scaleB">2 < Unit Specification="scaleC">554 Dim objDom As Object Dim xPath As String Set objDom = CreateObject("Msxml2.DOMDocument.3.0") objDom.Load ("C:\ut.xml") Dim xPath As String xPath = "/tab/odd" import = objDom.SelectSingleNode(xPath).Text