Excel Vba Count Elements In An Array