VB calculation of the lunar calendar algorithm -----