Excel Vba Count Elements In A Vector Plus