Bom dia pessoal ,
estou com um pequeno problema em um função de soma no vba
esse é o trexo do codigo

On Error Resume Next
If TxtAvariadoM.Value = "" Then
MsgBox "Entre com o valor.", "Verifique", vbCritical
TxtAvariadoM.SetFocus
End If
TxtAvariadoM.Value = FormatNumber(TxtAvariadoM.Value, 2)

AvariadoME.Value = TxtAvariadoM.Value - 8 ( aqui que esta o problema quando eu digito em TxtAvariadoM o valor menor que 8 o valor vai ser negativo e vai interefir na soma gostaria de que o valor so somase se for positivo ou quando se digita um valor no TxtAvariadoM menor que 8 o valor mostrase 0,00 e não negativo

AvariadoME.Value = FormatNumber(AvariadoME.Value, 2)
GAvariadoM = TxtLiquidoBrutoE.Value * AvariadoME.Value / 100
GAvariadoM.Value = FormatNumber(GAvariadoM.Value, 2)
TxtTotalDescontoE.Text = CDbl(GUmidade.Text) + CDbl(GImpureza.Text) + CDbl(GAvariadoM.Text)
TxtLiquidoCorrigidoE = CDbl(TxtLiquidoBrutoE.Text) - (CDblTxtTotalDescontoE.Text)
TxtTotalDescontoE.Value = FormatNumber(TxtTotalDescontoE.Value, 2)

At.
Araujo