vb.net编辑问题

VB功能一直都正常，昨天不知道为什么重新更改一下属性运行后不起作用，连Click事件也不起作用，这是怎么回事？是VB问题还是文件损坏？
比如：
Private Sub RichTextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RichTextBox1.TextChanged
        Dim userlen As Integer
        userlen = Len(RichTextBox6.Text)
        If userlen > 594 Then
            MsgBox("输入的字符数超出打印范围", 64)
        End If
    End Sub


本来是RichTextBox6输入的文本超过594字节就提示的，可现在完全不起作用