split()问题？
s = Replace(s, Trim(txt_start.Text), "!@ ")
s = Replace(s, Trim(txt_end.Text), "!@ ")
s = Split(s, "!@ ")(1)

s = Replace(s, "~! ", vbTab)
Open App.Path + "\tmp.txt " For Output As #1
Print #1, s
Close #1

比如：
111
校长
学生
日期
222
老师
干部
日期
我设定开始111 到日期截取得到：
校长
学生
我设定开始222 到日期截取得到：
222
本来是想得到干部。
难度就不能顺序执行，干嘛返回执行截取呢？


[解决办法]
看你的代码，replace将s中的所有日期和老师都替换为了!@，你再将s用split按!@分组，你自己顺序print一下，看看数组是个什么情况，这样你才会更好的理解