Dim ASCIIEncoding As New ASCIIEncoding
 
        ' Create a request using a URL that can receive a post. 
        Dim HTTPAnfrage As HttpWebRequest
        HTTPAnfrage = CType(WebRequest.Create("Internetseite"), HttpWebRequest)
 
        ' Set the Method property of the request to POST.
        HTTPAnfrage.Method = "POST"
        HTTPAnfrage.ServicePoint.Expect100Continue = False
 
        ' Set the ContentType property of the WebRequest.
        HTTPAnfrage.ContentType = "application/x-www-form-urlencoded"
 
        ' Create POST data and convert it to a byte array.
        Dim postData As String = "Postdaten=KA"
        Dim byteArray As Byte() = ASCIIEncoding.GetBytes(postData)
        'Dim byteArray As Byte() = Encoding.UTF8.GetBytes(postData)
 
        ' Set the ContentLength property of the WebRequest.
        HTTPAnfrage.ContentLength = byteArray.Length
 
        ' Get the request stream.
        Dim dataStream As Stream = HTTPAnfrage.GetRequestStream()
        ' Write the data to the request stream.
        dataStream.Write(byteArray, 0, byteArray.Length)
        ' Close the Stream object.
        dataStream.Close()
 
        ' Get the response.
        Dim HTTPAntwort As HttpWebResponse
        HTTPAntwort = CType(HTTPAnfrage.GetResponse(), HttpWebResponse)
 
        Dim i As Integer
 
        While i < HTTPAntwort.Headers.Count
            MsgBox("Header Name:" & HTTPAntwort.Headers.Keys(i) & ", Header" & _
              "value :" & HTTPAntwort.Headers(i))
            i = i + 1
        End While
 
        ' Clean up the streams.
        dataStream.Close()
        HTTPAntwort.Close()