RECEBER DADOS DE 2 SENSORES

 Public Sub ReadData(ByVal TcpClient As TcpClient)
        Try
            Dim bytes(10024) As Byte
            Dim Data As String
            Data = New Byte
            Dim FinalString As String
            If TcpClient.Connected Then
                stream = TcpClient.GetStream()
            Else

                Return
            End If

            If stream.CanRead = True Then
                If stream.DataAvailable = True Then
                    Data = stream.Read(bytes, 0, bytes.Length)
                    FinalString = Encoding.ASCII.GetString(bytes)

                    TextBox2.Text = FinalString

                    
                End If
            End If

        Catch ex As SocketException
            TextBox3.Text &= [Ô]Error: [Ô] & ex.Message & Environment.NewLine
        End Try

    End Sub
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        ReadData(tcpClient)

    End Sub