Sub HC_ResponseSuccess (Response As OkHttpResponse, TaskId As Int)
Dim HTMLContents As OutputStream
HTMLContents.InitializeToBytesArray(0)
Response.GetAsynchronously("Contents", HTMLContents, True, TaskId)
DoEvents 'Without the DoEvents the BytesToString below returns an empty string.
ProjectCode.IPAddress = BytesToString(HTMLContents.ToBytesArray, 0, HTMLContents.ToBytesArray.Length, "UTF-8")
Log(BytesToString(HTMLContents.ToBytesArray, 0, HTMLContents.ToBytesArray.Length, "UTF-8"))
End Sub