Excel Vba Split Text Into Array On A Dvds Selection