[RESOLVED] Need Advice

[RS_Arm]

Hi.
I've got a function to search data in a MSHFlexGrid.
Here goes the code:

Option Explicit
Sub Grid(SearchText As String, objMSHFGrid As MSHFlexGrid)
Dim r As Integer, c As Integer, x As Integer
Dim str1 As String, str2 As String
Dim exist As Long
With objMSHFGrid
  
  x = Len(SearchText )
  For r = 1 To .Rows - 1
    For c = 0 To .Cols - 1
        str1 = LCase(.TextMatrix(r, c))
        str2 = LCase(SearchText )
        exist = InStr(1, str1, str2, vbTextCompare)
        If exist <> 0 Then 
            .Row = r     
            .Col = c
            .TopRow = r
            Exit Sub  
        End If
    Next c
  Next r


End With
End Sub

Now, what I want to do is a "Find Next"
How should I do it?