Cita:
Iniciado por Avellaneda 
Tampoco hay que pensar demasiado para solucionar eso.
Private Sub Text1_LostFocus(Index As Integer)
Dim i As Integer, d As Double
On Error Resume Next ' por si algun TextBox está en blanco
For i = 0 To Text1.UBound
d = d + Val(Text1(i))
Next i
txtSuma = d
End Sub
Si los TextBox no están en un array de controles, repites el código en el mismo evento por cada control.
'otra cosa esto sin importar que use el mas como las letras tab ???'
¿Qué quieres decir con eso? no entendí nada!
que si lo seleciona el textbox con el mouse o se desplaza con la letra tab
gracias
saludos