Visual Basic.NET - De vuelta y primera consulta (DataGrid)

Private Sub DGVLista_CellEndEdit(sender As Object, e As DataGridViewCellEventArgs) Handles DGVLista.CellEndEdit

        If e.ColumnIndex = 0 And e.RowIndex = 0 Then  ' somos en la primera celda

            Dim CadenaBuscada As String = DGVLista.Item(e.ColumnIndex, e.RowIndex).Value

            '' Si buscas en todas columnas  *********************************

            'For R As Integer = 1 To DGVLista.Rows.Count - 2   ' escribir -1 si no existe linea vacia a la fin del DGV (AllowUersToAddRow = False)

            '    For C = 0 To DGVLista.Columns.Count - 1

            '        If DGVLista.Item(C, R).Value = CadenaBuscada  Then

            '            ' Tratar aqui el descubrimiento de una celda que contiene mismo texto que la celda 0,0

            '            Exit Sub ' si no necesario de mirar el resto del DGV

            '        End If

            '    Next

            'Next

            ' Si buscas solamente en columna 0  *********************************

            For R As Integer = 1 To DGVLista.Rows.Count - 2   ' escribir -1 si no existe linea vacia a la fin del DGV (AllowUersToAddRow = False)

                ' Si buscas en todas columnas

                If DGVLista.Item(0, R).Value = CadenaBuscada Then

                    ' Tratar aqui el descubrimiento de una linea que empeza con el mismo valor en columna 0

                    ' Por mi prueba :

                    MessageBox.Show("Encontrar")

                    Exit Sub ' si no necesario de mirar el resto del DGV

                End If

            Next

        End If

    End Sub