Vba Split String Into Array Bytes To Bits