check the validity of ID Card for excel with VB