Visual Basic - SE QUE ES FACIL....SUMA DE UNOS TEXTBOX

HOLA AMIGOS COMO ESTAN, ESPERO QUE MUY BIEN. SOY UN NOVATO EN ESTO
DE LA PROGRAMACIÓN Y CADA DÍA QUISIERA APRENDER MÁS DE ESTE MUNDO. UTILIZO
VISUAL BASIC 6

Mi pregunta es la siguiente:

Tengo 3 controles TextBox y un Command Button, deseo ingresar
en los dos primeros TextBox un número de una cifra en cada uno, y que
al pulsar el command Button este me calcule en el tercer TextBox la suma
de los números que se ingresaron en los dos anteriores, pero necesito
que al sumarlos solo me muestre la primera cifra de la suma.

Ejemplo:

TextBox1 (8)
TextBox2 (4)

8 + 4 = 12 pero necesito que solo me muestre el número 2

Si alguno me puede ayudar diciendome que tengo que hacer para
lograrlo le agradeceria mucho, que código debo utilizar y dicho código
dónde lo debo poner si en el formulario o cual de los TextBox y que debo
de colocar en el command Button.

De verdad mil gracias y mucha suerte para todos.

JOHAN

JOHAN:
Por lo que decís querés recuperar las unidades de cada número e ignorar las decenas. El asunto no es complicado, primero calculamos la suma y luego la tratamos como cadena para recuperar el último caracter. Yo lo haría así:

Dim suma as long, unidad as string
'Calcula la suma
suma=val(TextBox1.text) + val(TextBox2.text)
'Convierte el resultado a texto
unidad=cstr(suma)
'Obtiene la unidad
unidad=right$(unidad,1)
'Pasa el resultado al tercer texto
TextBox3.text=s

Si lo que deseas es recuperar el primer número debés cambiar la línea
unidad=right$(unidad,1)
por
unidad=left$(unidad,1),

Saludos Ruri

Vayamos poco a poco.

En primer lugar, debes programar el evento Click del CommandButton. Para ello hacemos doble click sobre el commandButton y debe aparecer lo siguiente:

Private Sub Command1_Click()

End Sub

suponiendo que el nombre del CommandButton sea "Command1".

Pues entre las dos líneas que te aparecen debes escribir el código siguiente:

'Definimos dos variable para almacenar los valores a sumar.
Dim Sumando1, Sumando2 as Integer

'Almacenamos los valores en las variables.
Sumando1=TextBox1.Text
Sumando2=TextBox2.Text

'La función Left("Cadena",Número) extrae de "Cadena" el número de
'caracteres por la izquierda especificados por Número, y después se lo
'asignamos al TextBox3.
TextBox3.Text = Left(Sumando1 + Sumando2 , 1)

Creo que ésto es lo que te hace falta.

Un saludo

la línea en la que pone TextBox3.Text = Left(Sumando1 + Sumando2 , 1) está confundida, ya que cuando lo leí pensé que querías extraer la de más de la izda.

Para extraer la de más a la derecha se utiliza la función Right de la misma forma:

TextBox3.Text = Right(Sumando1 + Sumando2 , 1)

extrayendo el primer caracter empezando por la derecha.