Работа с xmlParser VBA

Есть xml файл с несколькими документами отделенными тегом <Документ> в документе есть тег <Товары> с списком товара по наименованиям. Можно ли применить selectnodes или как перебрать товары в каждом документе?

Dim a As String
'Создаём OLE-объект DOMDocument
Set xmlParser = CreateObject("Msxml2.DOMDocument")
'Отключаем асинхронную загрузку
xmlParser.async = False
'Загружаем XML-документ
xmlParser.Load "C:\test.xml"
Set colNodes = _
    xmlParser.selectNodes("//Документ")
'Перебираем полученную выборку
For Each b In colNodes
    a = b.selectNodes("/Товары/Товар") - не работает
Next
End Function