Saisir un maximum de caractères dans un TextBox

Bonsoir

Je voulais savoir s'il est possible de forcer l'utilisateur de saisir un maximum de caractères dans un TextBox, par exemple j'ai besoin qu'il entre une chaine de caractères à 4 chiffres au max. Quel sera le code à entrer?

Merci

Bonjour

A tester

Private Sub TextBox1_Change()
  If Len(Me.TextBox1) > 4 Then
    Me.TextBox1 = Left(Me.TextBox1, 4)
  End If
End Sub

Doesn't work

C'es bon c'est résolu.

Il est plus simple d'utiliser l'option Maxlengh

Cordialement