Vba Assign Array Values In One Line