From Xojo Documentation

Read-Only Property (As Integer )
IntegerValue = aHTTPSocket.HTTPStatusCode

New in 2005r1

Supported for all project types and targets.

Returns the resulting code from the server. This function provides the status code when the socket is used in synchronous mode.

Sample Code

This code reads the HTTP status code.

TextField1.Text = Str(Me.HTTPStatusCode)