Error al llamar función

[bluesky777]

Hola a todos, felicidades por este foro tan genial y perdón por molestar tanto.

Lo que pasa es que ahora estoy probando mensajería por tcp (aunque ya estudié udp pero este está un poquito más completo) y estoy estudiando las clases que otorgan en esta página

[URL="http://www.elguille.info/colabora/puntoNET/PabloTilli_SocketsVBNET.htm"]http://www.elguille.info/colabora/puntoNET/PabloTilli_SocketsVBNET.htm"]http://www.elguille.info/colabora/puntoNET/PabloTilli_SocketsVBNET.htm"]http://www.elguille.info/colabora/puntoNET/PabloTilli_SocketsVBNET.htm[/URL]

Desde el cliente tengo esto en el boton enviar:

Código:

        Cliente.EnviarDatos(txtMensaje.Text)
        If txtMensaje.Text <> "" Then
            txtConversa.Text = "Yo: " & txtMensaje.Text & vbCrLf & txtConversa.Text
            txtConversa.Text = ""
        End If

y en el servidor se genera el evento DatosRecibidos, ese evento está así:

Código:

    Private Sub Server_RecibirDatos(ByVal IDTerminal As IPEndPoint) Handles Servidor.DatosRecibidos
        Dim MensajeRecibido As String = Servidor.ObtenerDatos(IDTerminal)
        txtConversa.Text = MensajeRecibido
    End Sub

Pero se queda como si no se desencadenara el evento, lo he intentado así: txtConversa.Text = Servidor.ObtenerDatos(IDTerminal) y nada. En cambio, cuando NO almaceno el Mensaje (Servidor.ObtenerDatos(IDTerminal)) en nungún lugar, sino que hago algo así:

Código:

Private Sub Server_RecibirDatos(ByVal IDTerminal As IPEndPoint) Handles Servidor.DatosRecibidos
        msgbox( Servidor.ObtenerDatos(IDTerminal) )
 End Sub

Aí si funciona, ¿como hago?, necesito almacenar el mensaje recibido en un Textbox. En la clase servidor, el método está así:

Código:

    Public Function ObtenerDatos(ByVal IDCliente As IPEndPoint) As String
        Dim InfoClienteSolicitado As InfoDeUnCliente

        'Obtengo la informacion del cliente solicitado
        InfoClienteSolicitado = Clientes(IDCliente)

        ObtenerDatos = InfoClienteSolicitado.UltimosDatosRecibidos
    End Function

Agradezco sus respuestas.