Così ?
codice:
lID = Mid(Node.Tag, CSng(Len(Node.Tag)), 1)