我写的拆分字符串，哪里错了？

[onlymearmstr]

编辑框2.内容
比如是这样的内容1+1=？A.0B.1C.2D.3
用“A.”“B.”“C.”“D.”这四个分隔符，将编辑框2.内容拆分到编辑框2到6中
即编辑框2.内容是　1+1=？
　编辑框3.内容是　0
　编辑框4.内容是　1
　编辑框5.内容是　2
　编辑框6.内容是　3
我写了段代码，哪里错了？
用到的三个方法
调用格式： 〈整数型〉 寻找文本 （文本型 被搜寻的文本，文本型 欲寻找的文本，［整数型 起始搜寻位置］，逻辑型 是否不区分大小写） - 系统核心支持库->文本操作
英文名称：InStr
返回一个整数值，指定一文本在另一文本中最先出现的位置，位置值从 1 开始。如果未找到，返回-1。本命令为初级命令。
参数<1>的名称为“被搜寻的文本”，类型为“文本型（text）”。
参数<2>的名称为“欲寻找的文本”，类型为“文本型（text）”。
参数<3>的名称为“起始搜寻位置”，类型为“整数型（int）”，可以被省略。位置值从 1 开始。如果本参数被省略，默认为 1 。
参数<4>的名称为“是否不区分大小写”，类型为“逻辑型（bool）”，初始值为“假”。为真不区分大小写，为假区分。
调用格式： 〈文本型〉 取文本左边 （文本型 欲取其部分的文本，整数型 欲取出字符的数目） - 系统核心支持库->文本操作
英文名称：left
返回一个文本，其中包含指定文本中从左边算起指定数量的字符。本命令为初级命令。
参数<1>的名称为“欲取其部分的文本”，类型为“文本型（text）”。
参数<2>的名称为“欲取出字符的数目”，类型为“整数型（int）”。

调用格式： 〈文本型〉 取文本右边 （文本型 欲取其部分的文本，整数型 欲取出字符的数目） - 系统核心支持库->文本操作
英文名称：right
返回一个文本，其中包含指定文本中从右边算起指定数量的字符。本命令为初级命令。
参数<1>的名称为“欲取其部分的文本”，类型为“文本型（text）”。
参数<2>的名称为“欲取出字符的数目”，类型为“整数型（int）”。


算法如下：
a1 ＝ 寻找文本 (编辑框2.内容, “A.”, , 假)
.如果 (a1 ＞ 0)
a2 ＝ 取文本右边 (编辑框2.内容, a1 ＋ 2)
编辑框2.内容 ＝ 取文本左边 (编辑框2.内容, a1)
a1 ＝ 寻找文本 (a2, “B.”, , 假)
.如果 (a1 ＞ 0)
a2 ＝ 取文本右边 (a2, a1 ＋ 2)
编辑框3.内容 ＝ 取文本左边 (a2, a1)
a1 ＝ 寻找文本 (a2, “C.”, , 假)
.如果 (a1 ＞ 0)
a2 ＝ 取文本右边 (a2, a1 ＋ 2)
编辑框4.内容 ＝ 取文本左边 (a2, a1)
a1 ＝ 寻找文本 (a2, “D.”, , 假)
.如果 (a1 ＞ 0)
编辑框5.内容 ＝ 取文本左边 (a2, a1)
编辑框6.内容 ＝ 取文本右边 (a2, a1 ＋ 2)

.否则

.如果结束

.否则

.如果结束

.否则

.如果结束

.否则

.如果结束

[PeacefulBY]

这算法看着真累……直接用正则表达式吧
或者把代码贴过来，相信大家都能看懂的；或者好歹把错的地方描述下吧