Vba Set Multiple Variables To Same Value As 3