Vba Split String Into Array Bytes To Mb