Rilton, não vi se exemplo, e a sua solicitação anterior que deu como Resolvido não ajudou?

Somar e multplicar valores nas TextBox [Resolvido]
viewtopic.php?f=23&t=5761&p=30105&hilit=textbox#p30105

De qualquer forma, segue um modelo onde temos alem da possibilidade da soma tambem o calculo de Desconto, é só adaptar.

Somar TextBox com Desconto

[]s

Mauro Countinho,

Obrigado pelo modelo disponibilizado.
Quando ao antigo tópico, foi de muita ajuda para mim. Eu marquei ele como resolvido por que naquele momento ("por Rilton » 19 Set 2012") era o que eu precisava. Agora tenho a necessidade de mudar a rotina, por isso abri um novo tópico. Se eu fiz errado, me desculpe. eu não quiz menosprezar a ajuda anterior, mas sim complementa-lá.

Voltando para meu problema atual, eu consegui adaptar o modelo disponibilizado ( Obrigado, novamente, Mauro Coutinho) à minha necessidade, ficou assim o código:

Dim TT_Valores As Double
'
'

Private Sub Calcular_Valores()


Dim TT_SubTotal As Double

TT_SubTotal = TT_Valores

If IsNumeric(txtFator1.Text) = True Then TT_SubTotal = TT_SubTotal + CDbl(txtFator1.Text)
If IsNumeric(txtFator2.Text) = True Then TT_SubTotal = TT_SubTotal + CDbl(txtFator2.Text)
If IsNumeric(txtFator3.Text) = True Then TT_SubTotal = TT_SubTotal + CDbl(txtFator3.Text)

If IsNumeric(txtRecursos) = True Then
   If CDbl(TT_SubTotal) <> 0 Then
     TT_SubTotal = TT_SubTotal * CDbl(txtRecursos.Text)
   End If
End If
'Total Final
txttotal.Text = TT_SubTotal
End Sub

Private Sub txtFator1_Change()
Call Calcular_Valores
End Sub

Private Sub txtFator2_Change()
Call Calcular_Valores
End Sub

Private Sub txtFator3_Change()
Call Calcular_Valores
End Sub

Private Sub txtRecursos_Change()
Call Calcular_Valores
End Sub

Obrigado!