В дебагере ответ сервера. Остается только отфильтровать нужное.
Graphics 320,240,32,2
SetFont (LoadFont ("Arial Cyr",15,1))
stream = OpenTCPStream ("checkip.dyndns.org",80)
If Not stream Then End
WriteLine stream, "GET checkip.dyndns.org HTTP/1.1"
WriteLine stream, Chr$ (10)
While Not KeyHit (1)
While Not Eof (stream)
msg$ = ReadLine (stream)
DebugLog msg
Wend
Wend
CloseTCPStream stream
End