Valor de celda en Textbox

Hola, tengo un userform con 3 textbox; en el textbox1, toma el valor de la celda D72 de una hoja llamada "totales" en la cual está registrado el valor de una deuda de un cliente; en el textbox2 debo digitar cuanto me paga el cliente, y el userform en el textbox3 me muestra el cambio que le debo dar a dicho cliente.

El problema que tengo es que el valor del pago es en dolares, es decir con 2 decimales, pero el formulario me redondea las cifras a enteros.

como hago para que la operación me la haga con decimales?

El código es el siguiente:

Private Sub CommandButton1_Click()
Unload Me
End Sub
Private Sub UserForm_Initialize()
TextBox1.Value = Sheets("TOTALES").Range("D72").Value
End Sub
Private Sub TextBox3_change()
TextBox3.Value = Format(Val(TextBox2.Value - TextBox1.Value), "$#,##0.00")
End Sub
Private Sub TextBox1_exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox1.Value = Format(Val(TextBox1), "$#,##0.00")
End Sub
Private Sub TextBox2_exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox2.Value = Format(Val(TextBox2), "$#,##0.00")
TextBox3.Value = Format(Val(TextBox2.Value - TextBox1.Value), "$#,##0.00")
End Sub
Private Sub TextBox3_exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox3.Value = Format(Val(TextBox3), "$#,##0.00")
End Sub

De antemano gracias a quien pueda colaborarme.