add a demo for VBA control excel