Quitar ultimo digito de una cadena (utilizando un contador)

[moiseslaguilar]

Amigos yo tengo un problema, quiero sustituir el ultimo dígito de una cadena pero esta cadena vive en un contador una vez quitado el ultimo valor solo quiero concatenar mi numero de expecion +1 que tengo en el código pero SIGO SIN PODER ELIMINAR EL ULTIMO DÍGITO 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

/// da como resultado esto

U801520(1) quiero quitar el 0 :(