Comment valider une saisie dans une TexBox, en fonction de certains critère ? (Type de données, valeurs maxi/mini,...)

Private sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
  With TextBox1
   If .Value > 99 Then
 	MsgBox "Saisie incorrecte"
    .SelStart = 0 	'Indique le début du texte sélectionné,
 		'ou le point d'insertion s'il n'y a pas
 		'de texte sélectionné (voir aide en ligne)
    .SelLength = Len(.Text)
 		'Nombre de caractères sélectionnés dans
 		'une zone de liste ou la partie texte d'une
 		'liste modifiable.
   Cancel = True
   End If
  End With
 end sub

Tant que la procédure Exit n'est pas terminée, le contrôle garde le focus, SetFocus est donc inutile.
Astuce illustrée par ce classeur
fc-controles