removed vbBody unnecessary code