instr函数循环输出的有关问题

instr函数循环输出的问题
|202013000005|20130423194812.0|  @a978-7-5135-2677-7@dCNY18.00|  @a20130407d2012    cd y0chiy0110    ea|1 @achi@ceng|  @aCN@b110000|  @aa   z   000ay|  @ar|1 @a狼犬卡维克@9lang quan ka wei ke@f(美)沃尔特·莫里著@g梁颖译|  @a北京@c外语教学与研究出版社@d2012|  @a233页@c图@d22cm|2 @a传世今典·动物小说| 0@12001 @a传世今典·动物小说|0 @a长篇小说@y美国@z现代|  @aI712.45@v4| 1@c(美)@a莫里@9mo li@b沃尔特@gMorey, W.@4著| 0@a梁颖@9liang ying@4译| 0@aCN@bNLC@c20130423|  @aTSG


如何获取字符串中“|”的位置,并依次输出到text1.text文本中
------解决方案--------------------

p = InStr(1, s, "
------解决方案--------------------
")

While p > 0

  Print p

  p = InStr(p + 1, s, "
------解决方案--------------------
")

Wend