Vba Assign Split To Array