Function POSTDatenAnURL(ByVal strURL As String, ByVal POSTDaten As String) As _
  String
  Dim req As HttpWebRequest = CType(WebRequest.Create(strURL), HttpWebRequest)
  Dim b() As Byte = System.Text.Encoding.ASCII.GetBytes(POSTDaten)
  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"
    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.Message = "Die zugrundeliegende Verbindung wurde geschlossen: Der" & _
      "Remotename konnte nicht aufgelöst werden.") Then
      MsgBox("Der angegebene Server exestiert nicht.", MsgBoxStyle.Exclamation)
    Else
      Return "Programmfehler"
    End If
  End Try
End Function