现需要对字符串中的字符进行重排顺序，具体方法如下：
原字符串8个字符为一段，分成若干段进行重排处理，尾段剩余字符（个数小于8）为独立段不做处理。
重排规则：从起始段第1个字符开始，从1开始数数，数到m时取出该位置上的字符，拼接到新字符串。然后，从下一个位置继续从1开始数数，数到m时再次取出相应位置上的字符，拼接到新字符串。当数到每段的最后-一个字符时，重新从该段首第一个没有取掉的字符继续数数。重复上述操作，直至段内8个字符被取完。注：当某段中的7个字符被取出后，该段最后一个字符不需要数数，直接取出拼接到新字符串即可。
用以上方法逐段取字符，直至除独立段之外的其他字符取完。
独立段字符个数小于8，不需要重排，直接拼接到新字符串的尾部即可。
实现该功能的VB程序功能如下：程序运行时从文本框Text1中输入一段字符串，在文本框Text2输入正整数m，单击“确定”按钮Command1，对字符串按上述方法重排后在文本框Text3中显示（每段以逗号分隔）。程序运行界面如下：

（1）运行上述程序，若在文本框中输入“1010110010”，在Text2中输入5，单击“确定”按钮，则文本框Text3中显示的内容是_______________。
（2）实现上述功能的VB程序如下，请在划线处填入合适的代码。
Private Sub Command1_lick()
Dim s1 As String,s2 As String
Dim i As Integer,sum As Integer,ed As Integer,n As Integer
Dim m As Integer
①__________
s1 = Mid(Text1．Text,1,Len(Text1．Text)- n)
m = Val(Text2．Text)
s2 = " "
' 字符重排顺序
sum = 0 : i = 1 : ed = 8
Do While Len(s1)< > 0
       sum = sum + 1
       If sum = m Then
             s2 = s2 + Mid(s1,i,1)
             s1 = Mid(s1,1,i-1)+ Mid(s1,i+1,Len(s1)-i)
             ed = ed – 1
             sum = 0
       Else
             i = i + 1
       End If
       If ed = 1 Then
             s2 = s2 + Mid(s1,1,1)+ ","
             ②___________
             ed = 8
             i = 1
       ElseIf ③________ Then
             i = 1
       End If
Loop
' 处理独立段
If n < > 0 Then s2 = s2 + Mid(Text1．Text,Len(Text1．Text)- n + 1,n)+ ","
Text3．Text = s2
End Sub