[VB 6] funzione MID

[raffaeu]

Ciao ho una treeview nella quale, nel tag memorizzo un codice.

Ora devo prelevare l' ultima cifra e le restanti.

Node.Tag = "2661"

lID = Mid(Node.Tag, 1, CSng(Len(Node.Tag) - 1))

Controllo = Right(Node.Tag, 1)

Chiaramente la prima riga ve la passo perchè non potete sapere il valore ...
Funziona il right che mi restituisce 1 ma il mid no.

Perchè? Sbaglio qualche cosa, mi restituisce 0 ...

[Mabi]

Così ?

lID = Mid(Node.Tag, CSng(Len(Node.Tag)), 1)

[raffaeu]

ho risolto in questo modo

    lID = CSng(Node.Tag)
    lID = Mid(lID, 1, CSng(Len(Node.Tag) - 1))

adesso funzia !!

Grazie comunque per la tempestività!!

[Mabi]

Prego