小弟我想在文本框输入身份证码，在输入过程中如果少于15位或18位数,要有异常提示

我想在文本框输入身份证码，在输入过程中如果少于15位或18位数,要有错误提示
刚学编程，求救~

[解决办法]
Private Sub text1_lostfocus()
If Trim(Text1.Text) = " " Then '如果文本框是空的就退出 sub
Exit Sub
ElseIf Len(Trim(Text1.Text)) = 15 Or Len(Trim(Text1.Text)) = 18 Then '如果输入的是15或18位的就提示正确
MsgBox "输入正确！ ", 48, "提示 "
Else '否则提示错误
MsgBox "请输入15位或18位身份证号！ ", 48, "提示 "
Text1.Text = " "
Text1.SetFocus
End If
End Sub