VB查询word段落，instr函数问题。目的很简单，就是要把word里面“过程”后面的文字输出到另一个文档。急！

需要把word文件109中"过程"后面一直到"L0"输出到text文件中
我的代码如下

Option Explicit
Dim pos1 As Integer
Dim pos2 as integer
Dim str
Dim s
Private Sub form_load()
Open "d:\109.doc" For Input As #1 “打开目标文件”
open "d:\test.txt" for output as #2
Do While Not EOF(1)
Line Input #1, str
Loop
pos1 = InStr(1, str,"过程“)
pos2=instr(1,str,"L0")
If pos > 0 Then
s=(str,pos1.pos2-pos1)
print#2,s
Else
MsgBox "no!"
End If
Close #1

close#2
End Sub

运行时首先发现了POS1始终=1
还有其他问题，希望大侠们教教我。。我是新手

相关了解……