Copy Code Dim dateApproved As Date If IsDate(txtApprovalDate.Text) Then dateApproved = DateTime.Parse(txtApprovalDate.Text) If dateApproved.Date < Now.Date Then 'do something End If