Excel Vba Split Text Into Arraylist Remove Last Element