Numero massimo caratteri in TextArea

[mardok30]

Ho inserito un controllo TextBox Multilinea e vorrei limitare il numero massimo di caratteri che è possibile inserire. Ma la funzione

Protected Sub Commento_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles Commento.TextChanged
If commento.text.lengt > 100 Then
     msgbox "prova"
End if
    End Sub

non viene mai richiamata, come mai?