if(CDate.Parse(DtpCCValidUpto.text)<Now()) Then
if(CDate(DtpCCValidUpto.text)<Now()) Then MessageBox.Show ("Invalid date.") DtpCCValidUpto.Focus() Return endif