Option Explicit
Private Sub Form_Load()
  WebBrowser1.Navigate2 _
    "http://195.185.42.58/cgi-bin/heidpark/wetter_stadt_hp.pl?aoAuswertung=Deu" & _
    "schland&aoStadt=Erkelenz&Button1=Prognose"
End Sub
 
Private Sub Klartext_Click()
Text1.Text = WebBrowser1.Document.All(0).innerText
End Sub
 
Private Sub Quelltext_Click()
Text1.Text = WebBrowser1.Document.All(0).outerHTML
End Sub