Imports System.Text
    Private Function GetSourcecode(ByVal URL As String) As String
        Application.DoEvents()
        Dim req As HttpWebRequest = CType(WebRequest.Create(URL), _
          HttpWebRequest)
        Dim res As HttpWebResponse = CType(req.GetResponse, HttpWebResponse)
        Dim str As New StreamReader(res.GetResponseStream, Encoding.Default)
 
        Dim enDefault As Encoding = Encoding.Default
        Dim enUTF8 As Encoding = Encoding.UTF8
 
        Dim defBytes As Byte() = enDefault.GetBytes(str.ReadToEnd)
        Dim utfBytes As Byte() = Encoding.Convert(enDefault, enUTF8, defBytes)
 
        Dim utfChars(enUTF8.GetCharCount(utfBytes, 0, utfBytes.Length)) As Char
        enUTF8.GetChars(utfBytes, 0, utfBytes.Length, utfChars, 0)
        Dim utfString As New String(utfChars)
 
 
        Return utfString
    End Function

---
Woher soll ich wissen, was ich denke, bevor ich h?re, was ich sage?