stop user from keying

[Goh]

how do i stop a user from entering more than a number of char in a textbox?
ie if number is a variable =5
means that user can only keying 5 chars at most and being 'block' after that in the textbox...but with the focus still set on the textbox.

[Bombdrop]

Option Explicit
 
Private Sub Form_Load()
    Me.Text1.MaxLength = 5
 
End Sub

hope this helps