问题：从 text1.text 提取一些特定字符、数字？
    1。直接InStr(1, text1.text,  string , vbTextCompare) 不行 ？？
       也许是text1.text 太长了
    2。 将text1.text 存入文档中，
          Open App.Path & "" For Input As #1
    Do Until EOF(1)
    Line Input #1, a
  mypos = InStr(1, a, "", vbTextCompare)
可以提取
3。因为text1.text是实时变化的，如果放如文档中，相应的的文档要经常建立、删除？？

大家给我提个意见，如何直接从text 中提取特定字符

1、InStr不是提取，是查找，如果是提取，请使用MID，如果是一定格式的，请使用正则表达式。
可参考 http://www.programfan.com/article/showarticle.asp?id=2933
http://xf12.com/blog/more.asp?name=sky&id=19
2、你的不是存，是取，存可以用
Open App.Path & "\1.txt" For output As #1
print #1 ,text1.text
close #!
3、与1类似

thank you   ! 用正则表达式搞定了