Spanish ESCUCHAR UN PUERTO CON B4A

TENGO LO SIGUIENTE:
Desde un celular envío mensajes de alerta a un servidor a través del puerto 80 dando aviso de una alarma.
Para ello pulso un botón y una ID de usuario y la IP publica es enviada a un servidor externo en donde se procesan los datos.

ME FALTA:
La IP sólo me identifica el router desde donde envío el ID pero no se como "escucharlo" con 4BA en mi aplicacion.

Necesitaría hacerlo por ejemplo a través de un puerto abierto:
Ejemplo el puerto 441 que utiliza WathsApp algo así 181.167.2.34:441
(esto si abrir o redireccionar los puertos de mi router)

En el celular donde instalo mi aplicacion 4BA necesitaría "escuchar" ese puerto y allí recibir los datos

Con esto envío a través del puerto 80 la data a mi server: (funciona muy bien)

' CONFIGURACION IP OF MY SERVER
Host="http://192.168.1.164"

Sub Imageview1_Click

'status =1 (alarm off)
'status =2 (alarm on)
'grupo is a user group
'id is my user id

Dim j As HttpJob
j.Initialize("", Me)
j.Download( Host & "/alerta/index.php?id=1001&status=2&grupo=3")
Wait For (j) JobDone(j As HttpJob)

If j.Success Then
Label1.Text = j.GetString
End If

j.Release

End Sub


---------------------------------------------
When the server receive the alarm data into my server I save the ID , Status,group an n the IP of my conexion, but the IP, is the IP Router where my phone and my PC is connected.

How I hear one port with the data in that IP in my Phone with B4A?

SERVER SEND DATA TO MY PHONE DIRECTLY TO PUBLIC IP AND I MUST HEAR THE DATA IN ONE PORT.

PLEASE HELP ME !!!

THANKS

YA ENCONTRÉ LA SOLUCIÓN - GRACIAS A TODOS