Para la ultima letra... en una frase o linea (usa splioit() para separarlas por medio de los espacios)

var="hola a todos"
var= mid(var,1,len(var)-1)
'o
var=left(var,len(var)-1)
'o
var=left(var,len(var)-1)
 

o Mucho mejor usa Replace() que es lo que veo que realmente deberias usar

dim var as string,i as integer
var="hola a todos"
for i =1 to 255:var= replace(var,chr(i) & " "," "):next i
 

es mejor usar Split o ingresarle una sentencia para comprobar letras SOLAS seràn BORRADAS eso va por tu cuenta

TIP: Repasate un Manua de Basicl!¿, cuando empese liste TODAS las funciones (solo los nombre) y los pegue en una hojita enfrente del monitor me ayudo a memorizarlas xD (Actualmente ya no uso esto)).

Dulces Lunas

y de paso aprender a escribir tambien...