Sub Pause(warten)
''Pausieren [Pause in Sekunden]
Dim start As Long
    start = Timer
      Do Until Timer - start >= warten
    DoEvents
Loop
End Sub

''Hilfsfunktion für aktualisieren des klartextes
Private Sub Timer1_Timer()
WebBrowser1.Navigate2 _
  "http://195.185.42.58/cgi-bin/heidpark/wetter_stadt_hp.pl?aoAuswertung=Deuts" & _
  "hland&aoStadt=Erkelenz&Button1=Prognose"
Pause 2
Klartext_Click
End Sub