Nothing

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类似