Hola marnueses ..mm..pienso que podrias utilizar la funcion Mid asi:Código: TextText1.Text = Mid(Text1.Text, 1, Len(Text1.Text) - 1) con Mid devuelves el número especificado de caracteres de una cadena, en donde el primer parámetro es la cadena, el segundo es el inicio de de donde quieres capturar la cadena y el tercer parametro es hasta donde quieres capturar la cadena.. ..espero que te sirva como una pequeña ayuda..suerte y que te valla bien.. ..chaucitos..