如何让以下代码每隔5分钟执行一次
WebBrowser1.Navigate "http://28.33.39.202/gis/map/default.asp"
Private Sub WebBrowser3_DocumentComplete(ByVal pDisp As Object, URL As Variant)
If Not (pDisp Is WebBrowser3.Object) Then Exit Sub
Text3.Text = WebBrowser3.Document.body.innerText
End Sub

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
Text2 = WebBrowser1.LocationURL ' 显示当前网址
' 判断当前网页是否全部调入完毕
If Not (pDisp Is WebBrowser1.Object) Then Exit Sub

Dim doc, objhtml
Set doc = WebBrowser1.Document
Set objhtml = doc.body.createTextRange()
If Not IsNull(objhtml) Then
s = objhtml.HTMLText

能否具体点

不是很明白楼上所说的。

每隔两分钟写一次文件的问题

我通过在窗体中加入两个文本框和一个时间控件，通过以下代码进行每两分钟往txt中添加内容，可是不知那里出现，运行十分钟过去了里面还只是第一次运行写的内容，是不是定时运行没起作用，还有另有问题，请高手指教
Dim i As Integer
Private Sub Form_Load()
i = 0 '计数器初值
Timer1.Interval = 1
'定时器timer事件的时间间隔约1秒
Timer1.Enabled = True '启动定时器
Text1.Text = "2" & Text2.Text
Open App.Path & "\my.txt" For Append As #1
Print #1, Text1.Text; "; "
End Sub
Private Sub Timer1_Timer()
i = i + 1 '计数器加一
'约1分钟保存一次,可酌情'改变
If i = 20000 Then

i = 0 '计数器清零
End If
End Sub