Dim httpreq As HttpWebRequest = HttpWebRequest.Create( _
          "http://www.google.com/search?hl=en&q=w%C3%BCste")
 
        Dim httpresp As HttpWebResponse = CType(httpreq.GetResponse(), _
          HttpWebResponse)
 
        Dim ct As String = httpresp.Headers("Content-Type")
        Dim enc As System.Text.Encoding
 
        If Not String.IsNullOrEmpty(ct) Then
            Dim vals() As String = Split(ct.ToLower, "charset=")
            If vals.Length = 2 Then
                enc = System.Text.Encoding.GetEncoding(vals(1))
            End If
        End If
 
        If enc Is Nothing Then
            enc = System.Text.Encoding.Default
        End If
 
        Dim rdr As New IO.StreamReader(httpresp.GetResponseStream(), enc)
        Dim body As String = rdr.ReadToEnd().Trim()
        RichTextBox1.Text = body

________
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