Dim objDom As Object
Dim xPath As String
Set objDom = CreateObject("Msxml2.DOMDocument.3.0")
objDom.Load ("C:\ut.xml")
xPath = "/tab/odd"
import = objDom.SelectSingleNode(xPath).Text