Excel Vba Count Elements In Array