Función para limitar la longitud de un textbox o campo

Señores muy buenos dias, Dios los bendiga. Mi pregunta es la siguiente: Tengo un Formulario llamado Datos, el cual tiene los siguientes campos. TxtFecha, TxtCedula(Texto), TxtNombres(Texto), TxtApellidos(Texto), TxtDirección(Texto) etc. Para controlar la longitud de cada campo uso la siguiente instrucción:

Private Sub TxtTercero_Change()
Rem código para controlar la longitud del campo
If Len(Me.TxtTercero.Text) > 35 Then
MsgBox "Longitud máxima permitida, 35 caracteres", vbInformation, "Longitud no valida"
Me.TxtTercero.Text = Mid(Me.TxtTercero.Text, 1, Len(Me.TxtTercero.Text) - 1)
Me.TxtTercero.SelStart = 35
Exit Sub
End If
End Sub

Como pueden ver está en el evento Change(). Y funciona de maravilla, pero tengo que escribirlo en cada uno de los campos y cambiar el nombre del campo y el número de la extensión. Lo que requiero es una función que controle la longitud del campo, es decir, si la longitud del campo es 20 caracteres, cuando el usuario los digite, automáticamente salga el mensaje "Longitud máxima permitida para este campo es de 20 caracteres.

Doy anticipadamente las gracias a la o las personas que me puedan ayudar.