Sumar TextBox con formato en formulario de excel

Para Dante.

Hola, como estas, aquí molestándote nuevamente: tengo un formulario en el cual ingreso unos datos a textbox y deseo sumar estos datos y que su resultado quede en un textbox, todos los textbox quiero que tengan formato de moneda. Para este último caso del formato estoy utilizando el siguiente código (cabe anotar que estos textbox contienen un resultado de multiplicar dos textbox):

Private Sub txtSubTotal1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
'Resultado de multiplicar precio de venta con cantidad
txtSubTotal1 = txtPrecio1 * txtCantidad1
'Formato moneda
txtSubTotal1 = Format(txtSubTotal1, "#,000.00")

Private Sub txtSubTotal2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
'Resultado de multiplicar precio de venta con cantidad
txtSubTotal2 = txtPrecio2 * txtCantidad2
'Formato moneda
txtSubTotal1 = Format(txtSubTotal1, "#,000.00")
End Sub

Private Sub txtTotal_Exit(ByVal Cancel As MSForms.ReturnBoolean)
'Formato moneda
txtTotal = Format(txtTotal, "#,000.00")

End Sub

Todo funciona bien, hasta que deseo sumar. Ingreso el código y me queda un 1. Si elimino este código e inserto para sumar, suma perfecto pero no me da formato de moneda y no me da el resultado en los textbox que multiplico.

Option Explicit
Private Sub txtSubTotal1_Change()
Sumar
End Sub

Private Sub txtSubTotal2_Change()
Sumar
End Sub

Private Sub Sumar()
Dim Suma As Double
Suma = Val(txtSubTotal1.Text) + Val(txtSubTotal2.Text)
txtTotal.Text = Format(Suma)
End Sub

Lo que puedo observar es que se utilizan dos eventos Exit y Change. Como puedo hacer para que con un solo evento o la combinación de estos me den los tres resultados: 1) Multiplicar los textbox; 2) que se de el formato de moneda; 3) que se sumen los textbox en otro con formato de moneda.

Soy malo para explicarme, cualquier inconveniente pido disculpas.