Visual Basic - Boton delete

Quiero hacer un command buttom que borre el ultimo digito de un textbox, por ejemplo:
si el textbox dice 1346, al hacer click sobre el command buttom quede 134 y al volver a hacer click quede 13, y asi, ¿alguien me podria explicar como puedo hacerlo?, muchas gracias por su atencion y disculpen la molestia.

hola, creo que es esto lo que buscas
'la 1ª línea par que si la caja de texto extá vacia no de error
If Text1.Text = "" Then Exit Sub
'la 2ª para hacer lo que buscas
Text1.Text = Mid(Text1.Text, 1, Len(Text1.Text) - 1)

muchas gracias funciona perfecto, pero me podrias explicar la ultima linea de codigo por favor? empezando por que significa mid, muchas gracias y nuevamente disculpa la molestia.