Neuladen einer Internetseite (aktualisieren)

Hallo, lese mit folgendem kleinem VB die Seite von einem Radiosender aus und schreibe den Titel des laufenden Liedes in eine Datei. Leider wird nicht bei allen Seiten automatisch aktualisiert. Wie kann ich es hinbekommen, das VB das für mich alle 30 Sek. erledigt. Danke im voraus

Dim sText As String
Dim Test_Text As String

Private Sub Form_Load()
Const sURL As String = _
http://www1.ndr.de/ndr/ndr_pages_idx/0,2571,SPM854,00.html?->MV

WebBrowser1.Visible = True
WebBrowser1.Navigate sURL
End Sub

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)

sText = WebBrowser1.Document.body.innertext

solltextanfang = InStr(sText, Es läuft
solltextende = InStr(sText, Es lief
solltext = Mid(sText, solltextanfang, solltextende - solltextanfang)
sText = solltext
If sText = Test_Text Then GoTo nichtschreiben
Test_Text = sText

Open C:\Dokumente und Einstellungen\Name\Desktop\Verknüpfungen\titel.txt For Append As #1
Print #1, Date, Time
Print #1, sText
Close #1
nichtschreiben:
End Sub

vielleicht hilfts weiter >>>Thema<<<

Sollte es nicht reichen den vorhandenen Code einfach in eine Timerprocedur zu legen, die dann alle 30 sek. aufgerufen wird?