Visual Basic - como borrar la ultima letra de una Cadenas

Hola me podrian desir como hacer que el ultimo caracter o letra que se introduscan en un text se borre al apretar un boton (la cantidad de letras nunca es = ,
A y otra cosa Como puedo hacer para que en una cadena tenga solo un limite de 40 caracteres
y los demas los borre.
gracias.

Para borrar la última letra debes hacer lo siguiente:

Dim Texto as String
Texto = "Cadena1"
Texto = Left(Texto, Len(Texto) - 1) 'Devuelve "Cadena"

Para límitar el ancho de la cadena puedes usar la propiedad MaxLength del TextBox (Suponiendo que lo estés usando). Esta propiedad la puedes establecer en tiempo de diseño y basta que especifiques la cantidad de caracteres que se pueden escribir

Hola, te dire a lo sensillo

Private Sub Command1_Click()

Text1.Text = Left(Text1.Text, Len(Text1.Text) - 1)

End Sub

esta es para borrar el ultimo caracter
en el texto ahy una propiedad llamada MaxLength que establece el n° maximo de caracteres de un texto, pero para que borre de los 40 para delante copia esto:

Private Sub Command1_Click()

Text1.Text = Left(Text1.Text, 40)

End Sub

Te servira mucho usar Left.