VB.NET - Label รับค่าจาก textbox มาแสดง ถ้าค่าซ้ำ ให้แจ้ง Error เพื่อป้อนค่าใหม่

    Private Sub RichTextBox1_TextChanged(sender As Object, e As EventArgs) Handles RichTextBox1.TextChanged
        Dim a As String = RichTextBox1.Text
        If IndexOutOfRangeException(a) > 0 Then
            MessageBox.Show("Error ข้อมูลซ้ำ")
        Else
            WriteLine(RichTextBox1.Text)
        End If
    End Sub

IF  (New String() {txt2.Text,txt3.Text}.Contains(txt1.Text))