Sub Webseite_auslesen()
        Try
            Dim request As WebRequest = WebRequest.Create( _
              "http://www.BeispielDomain.de")
            request.Credentials = CredentialCache.DefaultCredentials
            Dim response As HttpWebResponse = CType(request.GetResponse(), _
              HttpWebResponse)
            strStatus = response.StatusDescription
            Dim dataStream As Stream = response.GetResponseStream()
            Dim reader As New StreamReader(dataStream)
            Dim responseFromServer As String = reader.ReadToEnd()
            strQuelltext = responseFromServer
            reader.Close()
            dataStream.Close()
            response.Close()
        Catch ex As Exception
            MsgBox("Fehler beim Aktualisieren", MsgBoxStyle.Critical _
              =MsgBoxStyle.OkOnly, "Fehler")
        End Try
 End Sub