Excel Vba Initialize Date Variable Script