VB字符提取

Private Sub Form_Load()
s = "我盼着得到你的解答，什么是我一直在等候着你的到来，得到你的解答我会报答你的"
Dim re, ms
Set re = CreateObject("VBScript.RegExp")
re.IgnoreCase = True
re.Global = True
re.Pattern = "(我.*?你)"
Set ms = re.Execute(s)
For Each i In ms
Text2.Text = Text2.Text & i.SubMatches(0) & vbCrLf
Next
End Sub

Dim r As String, i As Integer, l As Integer, j As Integer, s As String
r = "我盼着得到你的解答，什么是我一直在等候着你的到来，得到你的解答我会报答你的。"
l = Len(r)
For i = 1 To l
s = ""
If Mid(r, i, 1) = "我" Then
s = s + Mid(r, i, 1)
For j = i + 1 To l
s = s + Mid(r, j, 1)
If Mid(r, j, 1) = "你" Then
i = j
Print s
Exit For
End If
Next j
End If
Next i

这种提取特定语句的方式用正则表达式来进行处理再合适不过，下面给出解释：
Pattern参数，很好地匹配了你的要