Celso,
Vo de dar o caminho, voce precisa trabalhar os detalhes depois:
Private Sub TextBox3_Change()
Dim c As Control
Dim soma As Double
For Each c In Me.Controls
If TypeName(c) = "TextBox" Then
If c.Name = "TextBox3" Or c.Name = "TextBox2" Then
soma = soma + CDbl(c)
End If
End If
Next
TextBox50.Text = soma
End Sub
Voce vai colocar esta mesma sub no evento TextBoxN_Change, de todos os textbox que devem ser somados ao serem alterados.
logicamente, vai implementar a sua regra.
Caio Vitullo