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 (poniamo il caso di avere una semplice GridView composta da due righe e due colonne. Ogni cella contiene una parola):

Public Sub GridView1_GotFocus()  
   
 Dim j, k As Byte  
 Dim s As String  
  
  s = InputBox("Immetti la parola da cercare:")  
  
' Inizia il doppio ciclo per leggere tutte le celle della "GridView":
   For j = 0 To 1  
     For k = 0 To 1  
' In questo esempio se il testo presente nella corrente cella è simile
' (non necessariamente identico) a quello immesso nell'InputBox per la ricerca...
       If GridView1[j, k].Text Like s & "*" Then  
' ...allora ci si posiziona nella corrente cella, la quale viene anche evidenziata...:
         With GridView1  
           .MoveTo(j, k)  
           .ShowCursor = True  
         End With  
' ...e si esce quindi dal ciclo, perché abbiamo trovato la parola simile a quella immessa nell'InputBox:
         Exit  
       Endif  
     Next  
   Next  
 
End