Excel Vba Visibleitemslist Arraylist Contains String