Dim oRequest As WebRequest = WebRequest.Create(sURL)
        Dim Hack As String = Chr(34)
        oRequest.Headers.Add("XML-RPC", "<?xml version=" & Hack & "1.0" & Hack _
          & "" & _
          "?><methodCall><methodName>NotifyUpdate</methodNam" & _
          "><params><param><value>URL" & _
          "Feed1</value></param><param><value>URL Feed2</value></param></params></methodCall>")
        oRequest.Method = "GET"

Dim Hack As String = Chr(34)
        Dim answer As String = "<?xml version=" & Hack & "1.0" & Hack & "" & _
          "?><methodResponse><params><param><boolean#g" & _
          "#1</boolean></param></params></methodResponse>"
        Dim buffer As Byte() = Encoding.UTF8.GetBytes(answer)
 
        Dim http As New HttpListener
        http.Prefixes.Add("http://*/")
        http.Start()
        Dim xDoc As New XmlDocument
        Dim context As HttpListenerContext = http.GetContext()
 
        MsgBox("Recieved Data")
        xDoc.LoadXml(context.Request.Headers("XML-RPC"))
        MsgBox(xDoc.GetElementsByTagName("param")(0).InnerText)
 
        context.Response.ContentLength64 = buffer.Length
        context.Response.OutputStream.Write(buffer, 0, buffer.Length)
        context.Response.OutputStream.Close()
        http.Close()