Function POSTDatenAnURL(ByVal strURL As String, ByVal POSTDaten As String) As _
  String
  Dim req As HttpWebRequest = CType(WebRequest.Create(strURL), HttpWebRequest)
  Dim pdenc As String = System.Web.HttpUtility.UrlEncode(POSTDaten)
  Dim b() As Byte = System.Text.Encoding.ASCII.GetBytes(pdenc)
  Dim out As IO.Stream
  Dim resp As WebResponse
  Dim sr As IO.StreamReader
  Dim res As String
 
  Try
    req.Method = "POST"
    req.ContentType = "application/x-www-form-urlencoded; charset=" & _
      System.Text.Encoding.Default.BodyName 
    req.ContentLength = b.Length
    req.KeepAlive = False
    out = req.GetRequestStream()
    out.Write(b, 0, b.Length)
    out.Close()
    resp = req.GetResponse()
    sr = New IO.StreamReader(resp.GetResponseStream())
    res = sr.ReadToEnd()
    sr.Close()
    resp.Close()
    Return res
  Catch ex As Exception
    If ex.Status = WebExceptionStatus.ConnectFailure OrElse ex.Status = _
      WebExceptionStatus.NameResolutionFailure Then
      MsgBox("Der angegebene Server exestiert nicht.", MsgBoxStyle.Exclamation)
    Else
      Return ("Programmfehler")
    End If    
  End Try
End Function