Private Sub CommandButton2_Click()
Dim lastrow As Integer
On Error GoTo exit_me
lastrow = [a100000].End(xlUp).Row + 1
Cells(lastrow, 1).Value = CDate(TextBox2.Value)
Exit Sub
exit_me:
 MsgBox "Invalid Date"

End Sub