CASAS DECIMAIS

Private Sub CmdDescontos_Click()
Dim A As Double
Dim B As Double      '  <--- aqui passei para double
Dim C As Double
Dim Total As Double
'-----------------------------------------------------
A = txtImposto.Text
B = txtTotalPagar.Text
C = txtDesconto.Text

Total = (A - B + C)
txtTotalLiquido = Total        '<--- aqui sem o .text

End Sub