Access - Contador de caracteres

Hola que tal!

Tengo un campo de comentatios validado para cierto número de caracteres.

Pero ahora quiero hacer otro cuatro de texto que vaya dando el número de caracteres conferme voy escribiendo el comentario. pruebo con el siguiente código, pero me genera un error. Según no puedo dar un valor a un campo si no tiene el enfoque.

Private Sub COMENTARIOS_Change()
txt_numero.Text = Len(COMENTARIOS.Text)

If (Len(COMENTARIOS.Text) > 1000) Then
MsgBox ("Solo se permiten 1000 como máximo")
COMENTARIOS.Text = Mid(COMENTARIOS.Text, 1, 1000)
End If
End Sub

Intenté dando el enfoque y regresándoselo al de comentarios, pero al recibir nuevamente el enfoque el de comentarios se selecciona todo el texto y esto causa varios problemas..

Alguien tiene un mejor idea para resolver esta situación?

De antemano les agradezco la ayuda.

Hola

El problema es que para asignar un valor a una caja de texto que no tiene el enfoque no se usa con la propiedad Text sino con Value

txt_numero.Value = Len(COMENTARIOS.Text)

Saludos
http://www.theemulator.tk