в textboxes измените случай, проверку для того чтобы увидеть длину текста. Когда я хочу сделать это, я вообще задаю ярлык (lbl_CharRemaining) к textbox и использую Кодего которое смотрит что-то как:
Приватное Sub txt_TextBoxName_Change
Статическое strPrevious как шнур
если Len (me.txt_TextBoxName.text & "") > 50000 после этого
me.txt _TextBoxName.text = strPrevious
Еще
strPrevious = me.txt _TextboxName.text
Закончитесь если
me.lblCharRemaining = 50000 - Len (me.txt_TextBoxName.text & "")
Подводная лодка конца