关于输入身份证号的问题
在TEXT控件里面输入身份证号，要求只能输入身份证号的18位，多一位则不能继续输入，少一位焦点一直在这个控件上面，最多18位好设置，最少18位怎么设置？在Private Sub Text1_KeyPress里面加代码吗？怎么加？
[解决办法]
在Text_Changed事件里面判断
if Len(Text1.Text) > 18 Then Text1.Text = Left(Text1.Text, 18)
在LoseFocus中添加：
if Len(Text1.Text) < 18 Then Text1.SetFocus
[解决办法]
建议使用 Validate 事件。这个事件是焦点即将失去时发生的，专供控件数据有效性检查使用的。
Private Sub Text1_Validate(Cancel As Boolean)
If Len(Trim(Text1)) < 18 Then
MsgBox "Please input 18 digits.", vbExclamation, "Warning"
Cancel = True
Text1.SelStart = Len(Text1)
Text1.SelLength = Len(Text1)
End If
End Sub
