Установить MaxLength не работает с isNumber = true, вы все равно можете ввести 00012 независимо от предела = 4
Мое решение:
Protected Overridable Sub szSeqNmbr_KeyPress(ByVal eventSender As System.Object, ByVal eventArgs As System.Windows.Forms.KeyPressEventArgs) Handles szAuthID.KeyPress
Dim KeyAscii As Short = Convert.ToInt32(eventArgs.KeyChar)
If (szAuthID.Text.Length >= szAuthID.MaxLength) Then
'szAuthID.Text = szAuthID.Text.Substring(0, szAuthID.MaxLength)
If (KeyAscii >= 48 And KeyAscii <= 57) Then
eventArgs.Handled = True
Return
End If
End If
End Sub