add the new VBAs code