Character Limit in Text Box

Hello,

I am not sure what is wrong here - TextBox is named as Report_Name
Getting an "Object Does not support this property or method" Error

Private Sub Report_Name_Change()
If Report_Name.TextLenght > "20" Then
MsgBox ("Cannot exceed 20 characters")
'Report_Name.Text = Left(Report_Name.Text, Report_Name.TextLength - 1)
End If
End Sub