Excel Vba Split Text Into Arraylist Length