xel = XElement.Load(streamr)

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.Text = ""
            TextBox1.AppendText(message & vbNewLine)
 
            'Text splitten
            Dim xel As XElement = <event>
                                      <name></name>
                                      <address></address>
                                      <message></message>
                                  </event>
            Dim name As String = xel.<name>.Value
            Dim adress As String = xel.<adress>.Value
            Dim messagetxt As String = xel.<message>.Value
            xel = XElement.Load(streamr)
            TextBox1.AppendText(xel.ToString() & vbNewLine)
            txtName.Text = xel.<name>.Value
            txtAddress.Text = xel.<address>.Value
            txtMessage.Text = xel.<messagetxt>.Value
 
        End If