Private Sub cmdFindNext_Click()
If txtFind <> "" Then
txtFile.SelStart = txtFile.SelStart + 2
If InStr(txtFile.SelStart, txtFile, txtFind) <> 0 Then
txtFile.SelStart = InStr(txtFile.SelStart, txtFile, txtFind) - 1
txtFile.SelLength = Len(txtFind)
Else
MsgBox "Not found", vbCritical, "Finding Problem"
End If
End If
End Sub