Прислушайтесь к советам и поверьте, сообщение не просто бесполезно, оно лишнее.
А для того "что бы знать", конструкция может выглядеть так:

Код:

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)

If Len(Me.TextBox1) >= 20 And Not KeyAscii = 8 Then

'MsgBox "Более 20 символов", vbInformation, "Внимание"

KeyAscii = 0

End If

End Sub

(8 нажатие клавиши BackSpace)