Thank you very much wazz. This is much better, 'cause I get this in the immediate window
vItem 0 = Sistema
vItem 1 = AND
vItem 2 = Nervioso
However, I still get the same error on the same line
booMatched = (InStr(1, nodNode.Text, varWords(1), vbTextCompare) > 0)
The error points to varWords...