Private Sub TextBox1_Change()
TextBox3 = Val(Replace("0" & TextBox1, ",", ".")) - Val(Replace("0" & TextBox2, ",", "."))
End Sub
Private Sub TextBox2_Change()
TextBox1_Change
End Sub
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Application.EnableEvents = False
Select Case KeyAscii
Case 44, 46
If InStr(TextBox1, ",") > 0 Then KeyAscii = 0 Else KeyAscii = Asc(",")
Case 48 To 57
Case Else
KeyAscii = 0
End Select
Application.EnableEvents = True
End Sub
Private Sub TextBox2_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Application.EnableEvents = False
Select Case KeyAscii
Case 44, 46
If InStr(TextBox2, ",") > 0 Then KeyAscii = 0 Else KeyAscii = Asc(",")
Case 48 To 57
Case Else
KeyAscii = 0
End Select
Application.EnableEvents = True