Ok I replaced my current code with that one and it still gave me this error again.

Run-Time error '91' bject variable or with block variable not set

and highlight this code.
Code:
Set ndA = ndsHiA.Item(cntHi).selectSingleNode("text()")
Any ideas?