Vba Split String Into Array Bytes To Kb