VB：如果txtUrl.Text中出现包含map这个单词的句子 那么就把txtUrl.Text中出现包含map的句子 存到c盘1.txt

你是要自动运行的还是需要手动点击按钮的？如果要自动运行，就要用一个Timer控件，interval设为5000（5秒一次，你也可以自己定）

Private Sub Timer1_Timer()
If InStr(txtUrl.Text, "map") > 0 Then
Open "c:\1.txt" For Append As #1
Print #1, txtUrl.Text
Close #1
txtUrl.Text = ""
End If
End Sub

另外，这里是假定你的txtUrl是单行文本框，如果是多行文本框，而且要保存的是其中的某行或某几行，则代码如下：

Private Sub Timer1_Timer()
Dim s() As String, i As Long
Open "c:\1.txt" For Append As #1
s = Split(txtUrl.Text, vbCrLf)
For i = 0 To UBound(s)
If InStr(s(i), "map") > 0 Then
Print #1, s(i)
End If
Next
Close #1
txtUrl.Text = ""
End Sub

j