Dim obWeb As HttpWebRequest = HttpWebRequest.Create( _
  "http://www.bera-fin.de/NetVersuch/spiele.xml")
        Dim obresp As HttpWebResponse = obWeb.GetResponse
        Dim mystream As Stream = obresp.GetResponseStream
        obxmldoc.Load(mystream)
        obxmldoc.Save("tempXml.xml")
 
        Dim tempServer As New WebClient
 
        tempServer.UploadFile("http://www.bera-fin.de/NetVersuch/spiele.xml", _
          "Post", "tempXml.xml")