Sub hc_ResponseError (Response As OkHttpResponse, Reason As String, StatusCode As Int, TaskId As Int)
Dim ErrMsg As String = Reason
If Response <> Null Then
ErrMsg = ErrMsg & CRLF & Response.ErrorResponse
Log(Response.ErrorResponse.Replace("\n", CRLF))
Response.Release
End If
CompleteJob(TaskId, False, ErrMsg)
End Sub