Private Sub TextBox1_Change()
Dim t$
t = Replace(TextBox1, ",", ".")
t = IIf(Val(t & 1), t, "")
TextBox4 = Val(t) * Val(Replace(TextBox2, ",", ".")) / 100
If IsNumeric(",1") Then t = Replace(t, ".", ",")
TextBox1 = t
End Sub
Private Sub TextBox2_Change()
Dim t$
t = Replace(TextBox2, ",", ".")
t = IIf(Val(t & 1), t, "")
TextBox4 = Val(Replace(TextBox1, ",", ".")) * Val(t) / 100
If IsNumeric(",1") Then t = Replace(t, ".", ",")
TextBox2 = t
End Sub