对n位二进制数进行编码（n 是8的倍数），以8位二进制数为一段，每段插入4位二进制数，构成12位二进制数，依次处理，完成各段数据编码。
每段编码方法如下：
●插入二进制位：在第1、2、4、8位置上插入4个二进制位r1、r2、r3、r4，初值为0．把原8位二进制数d1～d8从左往右依次填入剩余位置中，原数据位和插入的二进制位如图a所示：

●计算插入数据位的值：把每个位置号转换成4位二进制数，选出形如“***1”（“*”表示一位0或1）的位置号，则统计这些位置号对应数据位中的“1”的个数，若是奇数，则r1为1，否则为0；再选出形如“**1*”的位置号，则统计这些位置号对应数据位中的“I”的个数，若是奇数，则r2为1，否则为0；以此类推…
如8位二进制数“10101101”的编码过程如下：
（1）插入4个二进制位，初值为0，剩余位置依次填入原数据位，如图b所示。


（2）计算插入数据位的值，选出形如“***1“的位置号，即1、3、5、7、9、11，统计这些位置号对应数据位中“1”的个数为2，故r1=0，同理可得：r2=1，r3=0，r4=1，如图c所示。

（3）按位置号从小到大依次拼接各数据位得到最后编码“011001011101”。
（1）若原始二进制数据是“01101110”，则插入的数据位rl。r2．r3、r4的最终值依次为：

1，1，0，1

1，1，0，1

（填数据，用逗号分隔）
（2）编写VB程序实现对文本框Textl中输入的二进制数进行编码，并在文本框Text2中显示编码结果。代码如下，请在横线处填入合适的代码。