vb怎么限制Text只能输入日期

Private Sub Command1_Click()
Dim j As Date
Text1.Text = Trim(Text1.Text)
If Len(Text2.Text) <> 15 Then
If Len(Text2.Text) <> 18 Then
MsgBox "请输入正确的身份证号码"
Exit Sub
End If
End If
Text3.Text = Format(j, "YYYY-MM-DD")
If InStr(Text2.Text, Text3.Text) > 0 Then
MsgBox "验证成功"
Else
MsgBox "验证失败"
Exit Sub
End If
End Sub

代码如上。。
怎么样才能让text3里输入日期。
我输入了。他提示不正确
不懂谁能帮着改一下。。让text3只有输入日期！

vb怎么限制Text只能输入日期 关于vb怎么让他text中只能输入数字,而不要输入汉字或字母 [VB]怎么限制textbox里面只能输入规定的字符 怎样在VB里让TEXT里只能输入正数 如何才能让VB里的TEXT控件只能输入数字？ VB 中怎么实现TEXT从右开始输入？ VB中怎样限制Text控件数组中的不同Text输入不同内容（比如文字、数字等） 在VB中怎样让TEXT里只能输入数字和英文？ 怎么能让VB中的TEXT文本框字能输入数字而不能输入字符? vb 运行text里输入函数