500 status in webrequest

[tascien]

Hi guys,

when i use winhttp, and the server returns status 500, I get the text
that the server returned anyway...

when i use webrequest, and the server returns status 500, webrequest
just throws an exception... How can i find the text that came back with
the 500 status?

I need this because i am posting to a web service, that returns soap
fault in xml format.

any help would be appreciated. below is my webrequest code:
Public Function URL_POSTDATA(By Val URL As String, ByVal PostData As
String, Optional ByVal RequestHeaders As Hashtable = Nothing, Optional
ByVal UserName As String = "", Optional ByVal Password As String = "")
As String

Dim result As System.Net.WebR esponse
Dim html As String = ""
Dim rex As Exception = Nothing

Try
Dim req As System.Net.WebR equest
Dim RequestStream As System.IO.Strea m
Dim ReceiveStream As System.IO.Strea m
Dim encode As System.Text.Enc oding
Dim sr As System.IO.Strea mReader
Dim nc As System.Net.Netw orkCredential

req = System.Net.WebR equest.Create(U RL)
req.Method = "POST"
req.ContentType = "applicatio n/x-www-form-urlencoded"

If Not RequestHeaders Is Nothing Then
For Each Header As String In RequestHeaders. Keys
If Header.ToLower = "content-type" Then
req.ContentType = RequestHeaders( Header)
Else
req.Headers.Add (Header, RequestHeaders( Header))
End If
Next
RequestHeaders = Nothing
End If

If UserName <> "" Then
nc = New System.Net.Netw orkCredential(U serName,
Password)
req.Credentials = nc
End If

Dim SomeBytes() As Byte
Dim UrlEncoded As New System.Text.Str ingBuilder
'Dim reserved() As Char = {ChrW(63), ChrW(61), ChrW(38)}

SomeBytes = System.Text.Enc oding.UTF8.GetB ytes(PostData)
req.ContentLeng th = SomeBytes.Lengt h
RequestStream = req.GetRequestS tream()
RequestStream.W rite(SomeBytes, 0, SomeBytes.Lengt h)
RequestStream.C lose()
result = req.GetResponse ()
ReceiveStream = result.GetRespo nseStream()
encode = System.Text.Enc oding.GetEncodi ng("utf-8")
sr = New System.IO.Strea mReader(Receive Stream, encode)

Dim read(256) As Char
Dim count As Integer = sr.Read(read, 0, 256)

Do While count > 0
html &= New String(read, 0, count)
count = sr.Read(read, 0, 256)
Loop

Catch Exc As Exception
rex = Exc
Finally
If Not result Is Nothing Then
result.Close()
End If
End Try

If Not rex Is Nothing Then
Err.Raise(1, "URL_POST() ", "Network Error: The request URI
could not be loaded or was malformed: " & rex.Message)
End If

Return html

End Function