Sub POKUS()
Dim objDom As Object, sImport As String
Set objDom = CreateObject("Msxml2.DOMDocument.3.0")
	objDom.Load ("E:\Download\ut.xml")
	On Error Resume Next
	sImport = objDom.SelectSingleNode("/tab/odd[@A1='house']/bbs[@no='win2']/bbs[@no='ss']/Unit[@Specification='scaleBc']").Text
	If Err.Number <> 0 Then MsgBox "Kde nic není, ani smrt nebere."
	On Error GoTo 0
End Sub