如何实现连续向上查找？

Question

我要实现连续向上查找
以下是我的向上查找代码：If OptUp.Value = True Then
    
    st = Trim(TxtFind.Text) '要查找的字符串
    ln = Len(st) '要查找的字符串长度
    p = InStrRev(Main.Txt.Text, st)
    If p > 0 Then
        Main.Txt.SetFocus
        Main.Txt.SelStart = p - 1
        Main.Txt.SelLength = ln
        find = True
    Else
        find = False
        MsgBox "找不到" + st, vbOKOnly + vbExclamation, "记事本"
    End If
End If还有就是如何在向下查找的时候查找到第N个结果的时候，向上查找，是查找当前字符的上一个字符，而不是用向上查找的时候就直接反回到最后查找，从最面开始查找的．

Answer 1

把p存起来，下次查找的时候就从p前面开始
p=instrrev(p+1,main.txt.text,st)instr也同理

Answer 2

首先查到第N个结果后应先让程序终止查找,记录下P后在确定向上或向下找,再用P取出新的查找对象,后在向上向下找,这样结果就不是直接返回的完全结果,而是指定位置起向上或向下查找出来的结果!