Hey everyone,

I'm using this nice bit of code from "http://www.authorcode.com/search-text-in-your-excel-file-or-sheet-in-vb-net/"

It creates a search using a specified word
Code:
Private Sub SearchText()
        Dim oXL As Excel.Application
        Dim oWB As Excel.Workbook
        Dim oSheet As Excel.Worksheet
        Try
            Dim File_name As String = "C:\test.xls"
            oXL = CreateObject("Excel.Application")
            oWB = oXL.Workbooks.Open(File_name)
            oSheet = oWB.Worksheets(1)
 
            Dim oRng As Excel.Range = GetSpecifiedRange("get", oSheet)
            If oRng IsNot Nothing Then
                MessageBox.Show("Text found, position is Row-" & oRng.Row & " and column-" & oRng.Column)
            Else
                MessageBox.Show("Text is not found")
            End If
            oWB.Close()
 
            oSheet = Nothing
            oWB = Nothing
            oXL.Quit()
 
        Catch ex As Exception
            If oSheet IsNot Nothing Then
                oSheet = Nothing
            End If
            If oWB IsNot Nothing Then
                oWB = Nothing
            End If
            If oXL IsNot Nothing Then
                oXL.Quit()
            End If
        End Try
    End Sub
Which uses this function:

Code:
  Private Function GetSpecifiedRange(ByVal matchStr As String, ByVal objWs As Excel.Worksheet) As Excel.Range
        Dim currentFind As Excel.Range = Nothing
        Dim firstFind As Excel.Range = Nothing
        currentFind = objWs.Range("A1:AM100").Find(matchStr, , _
Excel.XlFindLookIn.xlValues, Excel.XlLookAt.xlPart, _
Excel.XlSearchOrder.xlByRows, Excel.XlSearchDirection.xlNext, False)
        Return currentFind
    End Function
It all works rather well, but the webpage mentions the use of being able to "find next" and "find previous".

I've been trying for a while and can't figure out how to do it. Any Help?

Thanks