Vba Split String Into Array Bytes Scale