Excel Vba Set Multiple Variables