Quitar el ultimo caracter o espacio de un string

[moiseslaguilar]

Amigos yo tengo un problema similar, quiero sustituir el ultimo digito de una cadena pero esta cadena vive en un contador una vez quitado el ultimo valor solo concateno +1 con una expecion que tengo en el codigo pero SIGO SIN PODER ELIMINAR EL ULTIMO DIGITO DEL CONTADOR


For a = 0 To lstbxAdd.Items.Count - 1
xx = lstbxAdd.Items(a)
Select Case RTrim(dgvTest.Item(1, i).Value)

Case xx
stFuente.Value = numID.Text

//AQUI EVALUO LO QUE TENGO EN MI GRID EN LA COLUMNA 3 con mi contador "i" y lo cambie por mi fuente que en este caso e mi expecion (No puedo quitar el ultimo digito de la cadena)


dgvTest.Item(3, i).Value += stFuente.Value