If Response <> Null Then
Try
Log(Response.GetString("UTF8"))
Catch
Log("Failed to read error message.")
For j=0 To Response.GetHeaders.Size-1
Dim list1 As List
list1 = Response.GetHeaders.GetValueAt(j)
For i = 0 To list1.Size - 1
Log(list1.Get(i))
Next
Next
Log("Failed to read error message.")
End Try