Ayuda para sumar valores en formato moneda

[jericosoft]

''''Hola , Tal vez la funcion CDEC te sea de utilidad


Private Sub cmdactualizar_Click()
TtxtTotal = Format((CDec(Mid(TxtpeajesCelco, 2, Len(TxtpeajesCelco))) + CDec(Mid(TxtpeajesOtros, 2, Len(TxtpeajesOtros)))), "$ ##,###,##0.00")
End Sub

Private Sub txtpeajescelco_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
KeyAscii = 0
SendKeys "{tab}"
TxtpeajesCelco.Text = Format(TxtpeajesCelco.Text, "$ #,###,##0.00")
End If
End Sub

Private Sub txtpeajesotros_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
KeyAscii = 0
SendKeys "{tab}"
TxtpeajesOtros.Text = Format(TxtpeajesOtros.Text, "$ #,###,##0.00")
End If
End Sub


Saludos