ho risolto in questo modo

codice:
    lID = CSng(Node.Tag)
    lID = Mid(lID, 1, CSng(Len(Node.Tag) - 1))
adesso funzia !!

Grazie comunque per la tempestività!!