Put code into InteractiveChange

thisform.text2.Value = LEN(ALLTRIM(This.text))

>I need to show the textbox1 lengh as the use types data in it
>
>In the event keypress of the textbox1, where user types data, has its value as a variable tag_number
>
>=====================================
>STORE ( LEN( tag_number)) TO field_lenght
>thisform.text2.Value = field_lenght
>
>thisform.refresh
>=====================================
>
>Textbox Test1 must show the lengh of the field
>
>But something is wrong