Const nrClass = 8 Const nrCustom23 = 47Sub NewProfileDlg_OnChange(dlg, attrib)if attrib = nrClass then dlg.SetAttributeValueByID nrCustom23, DateSerial(2015, 4, 6), Falseend ifEnd Sub