se devi togliere l'ultimo carattere puoi fare così
codice:
stringa = Left(stringa,Len(stringa)-1)