Obtener puerto

[matiasramos]

hola yo necesito obtener el puerto al cual le esta llegando los datos

             

Código [Seleccionar] Expandir

Dim data2 As Byte() = client2.Receive(receivePoint2)
                If receivePoint2.Address.ToString() = "69.25.16.12" Then
                    client.Send(data2, data2.Length, "127.0.0.1", puertoquenecesitosaber)
                End If


no se como hacer, si me pueden ayudar gracias.