Hello, I use this code to monitor some changes on site index,
evrything works OK when first time getting data, and when I
use it in loop mode, all info remains same but it chages on site!
What is wrong with this code, why he dont read site info in loop mode?

VB Code:
  1. lStart = 1

  2.   lEnd = 1

  3.   sFindStart = "news this hour:" 

  4.   sFindEnd = vbNewLine 

  5.   sSource = ""

  6.   sSource = Inet1.OpenURL(GetSetting(App.EXEName, "Settings", "text1", "")) 

  7.  
  8.   Do While Inet1.StillExecuting

  9.    DoEvents

  10.     Loop

  11.  
  12. Inet1.Execute , "CLOSE"

  13.   

  14.   lStart = InStr(lStart, sSource, sFindStart, vbTextCompare)

  15.        If lStart Then

  16.               lStart = lStart + Len(sFindStart)

  17.                     lEnd = InStr(lStart, sSource, sFindEnd, vbTextCompare)

  18.        If lEnd > lStart Then

  19.           Text1.Text = Mid$(sSource, lStart, lEnd - lStart)

  20.           Else

  21.               Debug.Print "Cant find text."

  22.           End If

  23.           Else

  24.               Debug.Print "Cant find text."

  25.           

  26.       End If

  27.    End If


So Text1.Text remains same when using loop mode, WHY
And web site info changes