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, la quale viene anche evidenziata...:
       With GridView1  
         .MoveTo(r, c)  
         .ShowCursor = True  
       End With  
' ...e si esce quindi dal ciclo, perché abbiamo trovato la parola:
       Exit  
     Endif  
   Next  
 Next  
 
End