比如
             一个textbox
               4 5 5 . . . . .
               0 d 1 2 c 5 3 A e 4 2 * * *
               1 1 a 2 2 3 f A f 3 0 . . .
               e b 1 2 2 c 3 A 3 d 2 \ \ \
               d 1 1 f 2 6 8 A 1 4 8 \ ? ?
               3 2 6 . . . . . .
       相同字符为A
       我要查询A后面第4位开始取3个 就是蓝色那些
       然后放在listbox里
需要怎么做，有没有思路告诉我下啊 ？？？？

我的思路是
 循环
  for i = 1 to len(text1.text)
   if instr("A",mid(text1.text,i,1)) then
      yStr = yStr & mid(text1.text,i+3,3) & "分割"
  next

  我还没实现过，这样做也许可以成功

  但问题是这个textbox里的数据量肯定很大。要是这样做的话就根本没什么效率可言了？
 有没有更加好的办法啊？

你写的是什么东东啊?语句用法上都有问题!!

自己都不实验还来发贴子,晕!!!

哪个语句错了啊？

我是来这求思路的

唉！！！！！！！！

你的这个A是确定的吗?一定是A而且仅有一个吗?

A绝对是确定的！！！！！后面位置也是确定的

Private Sub Command1_Click()
    Dim i As Integer
    Dim strA As String
    strA = Text1
    i = InStr(1, strA, "A")
    Do While i
        yStr = yStr & Mid(strA, i + 4, 3) & "分割"
        i = InStr(i + 1, strA, "A")
    Loop
    Text1 = yStr
End Sub