VB6 - Find Next function

Hi again.

I'm searching for a find next function in a MultiLine TextBox.

Ex:
If in ComCode1 i have the value S5 and in my EDI_CODE texbox, i have S5 in 4 different lines, the next command button will go over the lines with S5, one by one.

I still need to only search if the  ComCode1 value show in Mid$(EDI_CODE.Text, lngLineStart + 6, 2) .
Mid$(EDI_CODE.Text, lngLineStart + 6, 2) = ComCode1.Text

This code will search for the first instance but i need to be able to go to the next lines with that same value.

 Dim lngSelectedLine As Long
    Dim lngLength       As Long
    Dim lngFirstCharPos As Long
    Dim strBuffer       As String
    Dim lngLineCount As Long
    Dim lngLine As Long
    Dim lngLineStart As Long
    Dim bFound As Boolean
    
    ' Determine the number of lines in the textbox
    lngLineCount = SendMessage(ByVal EDI_CODE.hwnd, EM_GETLINECOUNT, 0&, 0&)
    
    ' Loop through them
    For lngLine = 0 To lngLineCount - 1
        ' Find the starting position of the line
        lngFirstCharPos = SendMessage(EDI_CODE.hwnd, EM_LINEINDEX, lngLine, 0&)

        ' Find length of line
        lngLength = SendMessage(EDI_CODE.hwnd, EM_LINELENGTH, lngFirstCharPos, 0&)
        ' see if there's a match in that line
        If Mid$(EDI_CODE.Text, lngLineStart + 6, 2) = ComCode1.Text Then
            bFound = True
            EDI_CODE.SelStart = lngLineStart
            strBuffer = Space(lngLength)
            ' Get line text
            Call SendMessage(EDI_CODE.hwnd, EM_GETLINE, lngSelectedLine, ByVal strBuffer)
            ' Highlight the line
            EDI_CODE.SetFocus
            EDI_CODE.SelStart = lngFirstCharPos
            EDI_CODE.SelLength = lngLength
            Exit For
        End If
        lngLineStart = lngLineStart + lngLength + 2
    Next
    If Not bFound Then
        MsgBox "'" & ComCode1.Text & " 'not found in list"
    End If

Select allOpen in new window

Thanks again