Como crear una condición en un textbox

Debo crear una condición en esta Macro en el TextBox8 ( se ingresa una fecha) ya que en muchas ocasiones no debo ingresar dicha fecha, y si eso sucede no me permite seguir, como lograr para que esto no suceda

Private Sub CommandButton2_Click()
Dim wsDestino As Worksheet
Dim ultimaFila As Long
Dim TextBox1 As MSForms.TextBox ' Asume TextBox1, TextBox2, TextBox3
Dim TextBox2 As MSForms.TextBox
Dim TextBox3 As MSForms.TextBox
Dim TextBox4 As MSForms.TextBox
Dim TextBox5 As MSForms.TextBox
Dim TextBox6 As MSForms.TextBox
Dim TextBox7 As MSForms.TextBox
Dim TextBox8 As MSForms.TextBox
Dim TextBox9 As MSForms.TextBox
Dim TextBox10 As MSForms.TextBox
' Define tus TextBoxes y la Hoja de Destino
Set wsDestino = ThisWorkbook.Sheets("Datos") ' ¡Cambia el nombre!
' Asegúrate de que los nombres coincidan con los de tu formulario
Set TextBox1 = FrmDatos.TextBox1
Set TextBox2 = FrmDatos.TextBox2
Set TextBox3 = FrmDatos.TextBox3
Set TextBox4 = FrmDatos.TextBox4
Set TextBox5 = FrmDatos.TextBox5
Set TextBox6 = FrmDatos.TextBox6
Set TextBox7 = FrmDatos.TextBox7
Set TextBox8 = FrmDatos.TextBox8
Set TextBox9 = FrmDatos.TextBox9
Set TextBox10 = FrmDatos.TextBox10
' 1. Encontrar la última fila con datos en la columna A (o la que uses como referencia)
ultimaFila = wsDestino.Cells(wsDestino.Rows.Count, "A").End(xlUp).Row + 1
' El +1 es para ir a la siguiente fila vacía [2, 10].

' 2. Asignar los valores de los TextBoxes a las celdas
wsDestino.Cells(ultimaFila, 2).Value = CDate(TextBox1.Text) ' Columna B (1)
wsDestino.Cells(ultimaFila, 1).Value = TextBox2.Value ' Columna A (2)
wsDestino.Cells(ultimaFila, 3).Value = TextBox3.Value ' Columna C (3)
wsDestino.Cells(ultimaFila, 4).Value = TextBox4.Value ' Columna D (4)
wsDestino.Cells(ultimaFila, 5).Value = TextBox5.Value ' Columna E (5)
wsDestino.Cells(ultimaFila, 6).Value = TextBox6.Value ' Columna F (6)
wsDestino.Cells(ultimaFila, 7).Value = TextBox7.Value ' Columna G (7)
wsDestino.Cells(ultimaFila, 8).Value = CDate(TextBox8.Text) ' Columna H (8)
wsDestino.Cells(ultimaFila, 9).Value = TextBox9.Value ' Columna I (9)
wsDestino.Cells(ultimaFila, 10).Value = TextBox10.Value ' Columna J (10)
MsgBox "Datos Guardados Exitosamente", , "DONACIONES TUCUMAN"
' 3. (Opcional) Limpiar los TextBoxes después de guardar
TextBox1.Value = ""
'TextBox2.Value = ""
TextBox3.Value = ""
TextBox4.Value = ""
TextBox5.Value = ""
TextBox6.Value = ""
TextBox7.Value = ""
TextBox8.Value = ""
TextBox9.Value = ""
TextBox10.Value = ""
TextBox1.SetFocus ' Poner el cursor en el primer Textbox [6].

Unload Me

End Sub