想问一下大佬，像for循环中，是不是取字符取完以后就自动结束循环，不会再管文本的长度啊？
for i＝1 to len(text1.text)
t＝mid(text1.text，j，3)
j＝j
+3

你为什么会有这种想法？

第一，for……next必须匹配
第二，满足当循环变量to后面的条件后，结束

For循环的次数通常来说只取决于For语句本身，比如有下列语句：
For i = 1 To Len(Text1.Text)
Next i
这个循环的次数就是Text1.Text的字符数，不管你在循环里怎么取Text1.Text的字符，都必须要循环到这个次数才能结束
当然也有例外的情况：
1.循环中使用了Exit For语句，这时可以提前结束循环
2.循环中有改变循环变量的语句，比如额外写了i=i+1，会导致循环次数减少（不推荐这种写法）

建议改成：

On Error Resume Next
n = Len(Text1.Text)
For i＝1 to n Step 3
t＝Mid(text1.text，1，3)
Next