ayuda con un textbox

[ReViJa]

Si las cantidades no son excesivamente grandes puedes hacerlo así:

Código:

Private Sub Sumar()
  txtActivosProductivos.Text = Val(txtValorAutomoviles.Text) + Val(txtValorMaquinarias.Text) + Val(txtValorMobiliario.Text) + Val(txtValorOtros.Text)
End Sub

Private Sub txtValorAutomoviles_Change()
  Call Sumar
End Sub

Private Sub txtValorMaquinarias_Change()
  Call Sumar
End Sub

Private Sub txtValorMobiliario_Change()
  Call Sumar
End Sub

Private Sub txtValorOtros_Change()
  Call Sumar
End Sub

Si son números muy grandes usa variables, ok.

Saludos.