我希望在这个文本框里，只能输入090930（两位年+两位月+两位日）这种格式的日期。
如果输入的内容不符合就会给出错误提示。

我现在已经做了限制，文本框里只可以输入数字，其它的都输入不进去了。
        If Chr(KeyAscii) Like "[!0-9]" Then
            If KeyAscii <> 8 And KeyAscii <> 9 And KeyAscii <> 13 Then
                KeyAscii = 0
            End If
        End If
但是我还需要怎么做，才能保证输入的格式是“090930”这样呢？

取长度,如果长度小于6时,不理会继续输入
如果长度=6时,禁止输入并且判断是否是合法的日期,如果不是.提示,

先提取出第3和4字符，判断是否大于12
然后根据不同的月判断月份天数（第5，6）如一月，三月31天，天数必须小于31
如果是二月还要判断年份，看是否闰年，方正必须小于每个月最大天数
挺烦的

= =;
添加个日期控件不就行了?
为什么一定要用文本框?

顶4楼

用日期控件是个办法！