Excel Vba Convert Variant Array To Double