Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles _
  Timer1.Tick
        If listener.Pending = True Then
            message = ""
            client = listener.AcceptTcpClient
            Dim streamr As New StreamReader(Client.GetStream())
            While streamr.Peek > -1
                message = message + Convert.ToChar(streamr.Read()).ToString
            End While
            TextBox1.AppendText(message & vbNewLine)
End If
    End Sub

<event> 
<name>Text1</name> 
<address>TEXT2</address> 
<message>TEXT3</message> 
</event>