Excel Vba Count Elements In Set