CodeItBetter Programming Another VB Programming Blog

'String Manipulation - How to Find a String within another String with many options
Option Explicit
 
Public Function FindNext(ByVal strExpression As String, ByVal sFind As String, _
    Optional ByVal lPosition As Long = 1, Optional bCaseSensitive As Boolean = False, _
    Optional ByVal bSearchUp As Boolean = False) As Long
    Dim lPos As Long, lFind As Long
    If strExpression <> "" Then
        If lPosition < 1 Then lPosition = 1
        If lPosition > Len(strExpression) Then lPosition = Len(strExpression)
        If bSearchUp Then
            lPos = lPosition - 1
            While lPos > 0
                lFind = InStr(lPos, strExpression, sFind, Abs(Not bCaseSensitive))
                If lFind = lPos Then
                    lPos = 0
                Else
                    lFind = 0
                    lPos = lPos - 1
                End If
            Wend
            FindNext = lFind
        Else
            FindNext = InStr(lPosition + 1, strExpression, sFind, Abs(Not bCaseSensitive))
        End If
    End If
End Function