campos txt

Estimados señores:

Tengo un formulario, en el cual tengo 8 campos (txt1, txt2.txt8) y un
campo txttotal donde deseo que que cada vez que teclee en cada txt me vaya
mostrando el total en el campo txttotal

ej:

txt1= 1
txt2= 10
txt3 = 9
txt4= 15
txt5= 0
txt6=0
txt7=0
txt8= 0
txttotal= 35

Por cada TXT tengo el siguiente modulo

Private Sub TXT1_Change()
VTXT1 = CInt(TXT1)
End Sub

Private Sub TXT2_Change()
VTXT2 = CInt(TXT2)
End Sub

Definición de variables

Las variables VTXT1...VTXT8 las cree para almacenar el valor numerico
tecleado en el cuadro Txt1...txt8

ej:
VTXT2 = CInt(TXT2)

VTXTE1, VTXT8 as integer
cada campo txt lo converti Cint(vtxt1) as integer para que me convierta el
string que he tecleado en número, hay alguna otra forma de hacerlo o esta es
la forma correcta? o en las propiedades puedo hacer algo?

Agardezco de antemano la colaboración prestada