Effettuare una ricerca nelle celle di una GridView

Per effettuare una ricerca se un testo sia presente all'interno di una cella della GridView, potremo utilizzare un algoritmo del genere:

Public Sub GridView1_GotFocus()  
   
 Dim r, c As Integer
 Dim s As String  
  
 s = InputBox("Immetti la parola da cercare:")  
  
' Inizia il doppio ciclo per leggere tutte le celle della "GridView":
 For r = 0 To GridView1.Rows.Max
   For c = 0 To GridView1.Columns.Max
' In questo esempio, se il testo presente nella corrente cella è identico a quello immesso nell'InputBox per la ricerca...
     If GridView1[r, c].Text = s Then  
' ...allora ci si posiziona nella corrente cella:
       With GridView1  
         .MoveTo(r, c)  
         .ShowCursor = True  
       End With
' La cella viene anche totalmente evidenziata in giallo:
       GridView1[r, c].Background = Color.Lighter(Color.Yellow) 
' Quindi si esce quindi dal ciclo, perché è stata trovata la parola:
       Exit  
     Endif  
   Next  
 Next  
 
End