Erro no Formulário Recebimento

Estou com problemas no formulário recebimento conforme a figura abaixo:


campo troco esta assim
=[txtDinheiro]-[txtPix]-[txtCredito]-[txtDebito]-[txtOutros]-[txtTLiquido]
quando o valor pago é o mesmo que o valor da compra o campo troco fica 0 e gera esse erro acima.

Tenta dessa forma no evento após atualizar do campo dinheiro.


If Me.txtDinheiro < Me.txtTotal Then
MsgBox "Valor pago menor que o valor total ", vbCritical, "Atenção"
Me.txtPix.SetFocus
Me.txtDinheiro.SetFocus
Me.txtDinheiro = ""
Exit Sub
Else
Me.txtTroco = (Me.txtDinheiro + Me.txtPix + Me.txtDebito + Me.txtCredito) - (Me.txtTotal)
End If