Private Sub TextBox12_Change()
If IsNumeric(Replace(Replace(TextBox11.Value, ",", Application.DecimalSeparator), ".", Application.DecimalSeparator)) And IsNumeric(Replace(Replace(TextBox12.Value, ",", Application.DecimalSeparator), ".", Application.DecimalSeparator)) Then
TextBox13.Value = Val(Replace(TextBox11.Value, ",", ".")) * Val(Replace(TextBox12.Value, ",", "."))
Else
TextBox13.Value = ""
End If
End Sub
Private Sub TextBox11_Change()
If IsNumeric(Replace(Replace(TextBox11.Value, ",", Application.DecimalSeparator), ".", Application.DecimalSeparator)) And IsNumeric(Replace(Replace(TextBox12.Value, ",", Application.DecimalSeparator), ".", Application.DecimalSeparator)) Then
TextBox13.Value = Val(Replace(TextBox11.Value, ",", ".")) * Val(Replace(TextBox12.Value, ",", "."))
Else
TextBox13.Value = ""
End If
End Sub