Visual Basic

Dim bytes(tcpClient.ReceiveBufferSize) As Byte<br />
      networkStream.Read(bytes, 0, CInt(tcpClient.ReceiveBufferSize))<br />
      clientdata = Encoding.UTF8.GetString(bytes)<br />
      msg = q.Dequeue()<br />
      'While (check)<br />
      'Dim s1 As String = msg.getIP()<br />
      'Dim s2 As String = clientdata.Length<br />
      'If s1 = s2 Then<br />
      '    Dim s3 As Boolean = True<br />
      'End If<br />
      If clientdata = msg.getIP() Then<br />
          sendBytes = Encoding.UTF8.GetBytes(clientdata)<br />
          networkStream.Write(sendBytes, 0, sendBytes.Length)<br />
          check = False<br />
      Else<br />
          q.Enqueue(msg)<br />
          MessageBox.Show("you are here")<br />
      End If