VBA来validation文本是否存在于文本框中，然后检查date格式是否正确
我有一个与VBA结合创build的excel表单。 在窗体中，我有一个文本框，用户在其中键入date。
我已经创build了这个VBA子句，以确保用户键入支持格式xx / xx / xxxx的date。
If Not IsDate(textboxDate1.Text) Then Call MsgBox("Please select a correct Date format", vbOKOnly) Exit Sub End If 但是，用这个VBA代码，用户需要input一个date，不pipe用户是否需要。 所以当我有其他4个文本框在我的表单中input一个date，并且用户只需要input一个date，而不是5，我有问题，其中用户需要为其他四个文本框的date以便提交表格。
所以我的问题是：什么样的VBA代码可用于首先确定文本中是否存在文本，然后再确定date格式是否正确。
我正在尝试类似这样的事情：
If textboxDate1.ListIndex = -1 Then
但我不能让它与IsDate子句一起工作。
提前谢谢了。
If (Len(Trim(textboxDate1.Text)) <> 0) And Not IsDate(textboxDate1.Text) Then Call MsgBox("Please select a correct Date format", vbOKOnly) Exit Sub End If