Private Sub CREDIT_Change()
If CREDIT.Value > 0 Then
DEBIT.Value = ""
CREDIT.Value = Format(CREDIT.Value, "#,##0.00 €")
End If
End Sub
Private Sub DEBIT_Change()
If DEBIT.Value > 0 Then
CREDIT.Value = ""
DEBIT.Value = Format(DEBIT.Value, "#,##0.00 €")
End If
End Sub