Dim OldVal
Private Sub TextBox15_Change()
Dim Target As Range
Set Target = Range("K2")
If TextBox15 <> vbNullString Then
On Error Resume Next
Application.Evaluate (CCur(TextBox15.Value))
If Err = 0 _
Then Target.Value = Format(CCur(TextBox15.Value), "### ##0.00 €") _
Else TextBox15 = OldVal
Else
Target.Value = vbNullString
End If
OldVal = Empty
End Sub
Private Sub TextBox15_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
OldVal = TextBox15.Value
End Sub