Para quitar el ultimo caracter de una cadena contenida en un textbox solo debes usar la siguiente linea.
Código:
Text1.Text = Mid(Text1.Text, 1, Len(Text1.Text) - 1)
Mid -> Devuelve una subcadena, previamente definido donde inicia a cortar y cuantos elementos debe sustraer
Len -> Devuelve la longitud de una cadena
En este caso, se debe de iniciar a cortar la cadena en su primer elemento y se le debe cortar la longitud menos uno, asi eliminamos el ultimo elemento.
Saludos