VB 修改一个股票行情监测脚本 到了预定的股价就启动程序a.exe

现在有一个代码 是截取股票行情的
有没有高手帮我修改一下
使得股价大于 预定的价格1 启动 程序1.exe
股价小于 预定的价格2 启动 程序2.exe
Private Sub Timer4_Timer()
If ssk = False Then Exit Sub
Dim xianjia As Currency
For i = ListView3.ListItems.Count To 1 Step -1
Dim GetSource As String
If Left(ListView3.ListItems(i).SubItems(1), 2) = "00" Then
GetSource = Inet2.OpenURL("http://baidu.hexun.com/stock/q.php?code=" & ListView3.ListItems(i).SubItems(1) & ".sz")
Else
GetSource = Inet2.OpenURL("http://baidu.hexun.com/stock/q.php?code=" & ListView3.ListItems(i).SubItems(1) & ".sh")
End If
Find = InStr(GetSource, "<td class=""align_center"

Dim file1, file2 As String
Private Sub Command1_Click()

If Val(Text1.Text) > Val(Text2.Text) Then Shell (file1)
'text2.text为大于这个值时 执行
If Val(Text1.Text) < Val(Text3.Text) Then Shell (file2)
'text3.text为小于这个值时 执行
End Sub

Private Sub Command2_Click()
WebBrowser1.Navigate "http://baidu.hexun.com/stock/q.php?code=" & Text4.Text
End Sub

Private Sub Command3_Click()
CommonDialog1.DialogTitle = "选择路径"
CommonDialog1.ShowOpen
file1 = CommonDialog1.FileName
End Sub
Private Sub Command4_Click()
CommonDialog1.DialogTitle = "选择路径"
CommonDialog1.ShowOpen
file2 = CommonDialog1.FileName
End Sub

Private Sub Form_Load()
Timer1.Interval = 6000
End Sub

Private Sub Timer1_Timer()
WebBrowser1.Refresh
End Sub