XL 2016 restriction dans une texbox dans un userform

private sub textbox1_change()
  static ANC as string, non as boolean
  If non then non =false: exit sub
  If val(textbox1.value) > 12 or (textbox1.value <> "" and textbox1.value <> "-" and not isnumeric(textbox1.value)) Then
    non = true: textbox1.value = ANC: exit sub
  end If
  ANC = textbox1.value
end sub

Private Sub TextBox1_AfterUpdate()
TextBox1 = Val(Replace(TextBox1, ",", "."))
If CDbl(TextBox1) < 12 Then TextBox1 = "": TextBox1.SetFocus
End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
TextBox1_AfterUpdate
Cancel = TextBox1 = ""
End Sub