VBA, чтобы проверить, существует ли текст в текстовом поле, а затем проверить, находится ли дата в правильном формате

У меня есть отличная форма, которую я создал в сочетании с VBA. В форме у меня есть текстовое поле, в котором пользователь должен ввести дату.

Я создал это предложение VBA, чтобы гарантировать, что пользователь вводит дату, поддерживающую формат xx / xx / xxxx.

If Not IsDate(textboxDate1.Text) Then Call MsgBox("Please select a correct Date format", vbOKOnly) Exit Sub End If 

Однако, с этим кодом VBA, пользователю необходимо ввести дату, независимо от того, нужен пользователь или нет. Поэтому, когда у меня есть еще 4 текстовых поля для ввода даты в моей форме, и пользователю нужно ввести только 1 дату, а не 5, у меня возникла проблема, когда пользователю нужно назначить дату для остальных четырех текстовых полей чтобы отправить форму.

• Размер текста Excel / PowerPoint после сжатия
• Имя свойства динамически созданных текстовых полей
• Написание кода / макроса Excel VBA для заполнения текстовых полей Powerpoint с значениями ячейки Excel
• Форматирование текстовых полей в форме пользователя
• Текстовое поле VBA на числовое значение

Поэтому мой вопрос: какой код VBA доступен, чтобы сначала определить, существует ли текст в текстовом поле, а затем второй, чтобы определить, соответствует ли дата правильному формату или нет.

Я пытался что-то подобное:

  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