Sub Webseite_auslesen(ByVal url As Uri)
        Dim response As HttpWebResponse
        Dim dataStream As Stream
        Dim reader As StreamReader
 
        Try
            Dim request As WebRequest = WebRequest.Create(url)
            request.Credentials = CredentialCache.DefaultCredentials
            response = CType(request.GetResponse(), HttpWebResponse)
            strStatus = response.StatusDescription
            dataStream = response.GetResponseStream()
            reader = New StreamReader(dataStream)
            Dim responseFromServer As String = reader.ReadToEnd()
            strQuelltext = responseFromServer
        Catch ex As Exception
            MsgBox("Fehler beim Aktualisieren: " & ex.ToString(), _
              MsgBoxStyle.Critical = MsgBoxStyle.OkOnly, "Fehler")
        Finally
            If reader IsNot Nothing Then reader.Close()
            If dataStream IsNot Nothing Then dataStream.Close()
            If response IsNot Nothing Then response.Close()
        End Try
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        Webseite_auslesen(New Uri( _
        "http://www.vbarchiv.net/forum/id22_i62526t62526_probleme-mit-zweiten-" & _
        "ufruf-einer-sub.html"))
    End Sub

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist