Dim wr As HttpWebRequest = WebRequest.Create(Source)
        wr.Method = "GET"
        wr.UserAgent = "Mozilla/5.0 (Windows NT 6.1; WOW64; rv:13.0)" & _
          "Gecko/20100101 Firefox/13.0.1"
        wr.Accept = _
        "text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8"
        wr.ContentType = "application/x-www-form-urlencoded; charset=UTF-8"
 
        Dim Response As Stream = wr.GetResponse.GetResponseStream
        Dim Reader As StreamReader = New StreamReader(Response)
        Dim s As String = Reader.ReadToEnd
        Response.Close()
        Reader.Close()