Dim objDom As Object
Set objDom = CreateObject("Msxml2.DOMDocument.3.0")
objDom.Load ("C:\ut.xml")

import = objDom.SelectSingleNode("/tab/odd[@A1='house']/bbs[@no='win2']/bbs[@no='ss']/Unit[@Specification='scaleB']").Text