Inputbox nur maximal vier Zeichen, aber wie?

MsgBox(0, 'Inhalt Input', _InBox('Test', 'Bitte eingeben:', '', 'ES_NUMBER', 4) )

;===============================================================================
; Function Name: _InBox($title, $Prompt [, $Default='' [, $Style=Default [, $Len=0]]])
; Description:: Individuelle Inputbox
; Parameter(s): $title Titel
; $Prompt Prompt
; optional: $Default Vorgabe Input
; optional: $Style Style des Inputfeldes (Übergabe als String OHNE "$")
; optional: $Len max. Länge der Eingabe
; Return Value(s): Erfolg Eingabe aus Inputfeld
; Fehler @error Leerstring
; Author(s): BugFix ([email='bugfix@autoit.de'][/email])
;===============================================================================
Func _InBox($title, $Prompt, $Default='', $Style=Default, $Len=0)
#include-once
#include <GUIConstantsEx.au3>
#include <EditConstants.au3>
Local $mode = Opt("GUIOnEventMode", 0), $msg
Local $InBox = GUICreate($title, 200, 140)
Local $text = GUICtrlCreateLabel('', 10, 20, 180, 17)
Local $Input = GUICtrlCreateInput('', 10, 60, 180, 20, Eval($Style))
If $Len Then GUICtrlSetLimit(-1, $Len)
Local $OK = GUICtrlCreateButton('OK', 10, 100, 80, 20)
Local $Esc = GUICtrlCreateButton('Abbrechen', 110, 100, 80, 20)
GUICtrlSetData($InBox, $title)
GUICtrlSetData($text, $Prompt)
If $Default Then GUICtrlSetData($Input, $Default)
GUISetState()
Do
$msg = GUIGetMsg()
If $msg = $Esc Or $msg = $GUI_EVENT_CLOSE Then Return SetError(1,0,'')
Until $msg = $OK
Local $ret = GUICtrlRead($Input)
GUIDelete($InBox)
Opt("GUIOnEventMode", $mode)
Return $ret
EndFunc ;==>_InBox