Cita:
Iniciado por carnero 
gracias el problema es que "el usuario" tiene que escribir por ejemplo 221209 en el texbox pero el usuario puede escribir 221220 ( si le cambio el maximo de caracteres [7] no funciona) y quedaria 221/22/
como lo puedo hacer para evitar eso?
Puedes jugar con el Maxlength:
En el Got_focus del text:
text1. Maxlength=6
text1.text=replace(text1.text,"/","")
sendkeys "{HOME}+{END}"
En el lost_focus del text:
text1. Maxlength=8
text1.text= format(Log.rst.Fields(4), "00/00/00")