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 Form_Open()

 With GridView1
   .Rows.Count = 3
   .Columns.Count = 3
 End With

 GridView1[0, 0].Text = "abcde"
 GridView1[0, 1].Text = "fghil"

End


Public Sub Button1_Click()

 Dim r, c As Integer
 Dim s As String  

 s = InputBox("Immetti la parola da cercare:")  

' Se non è stato inserito alcun carattere stringa nell'"InputBox", allora si esce dalla corrente subroutine:
 If IsNull(s) Then Return

' 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:
       Break
     Endif  
   Next  
 Next  

End