大家好！我是一个初学者，在做自制记事本时，菜单栏上的搜索可以用，但是搜索下一个却不能用，请哪位高手指教一下，谢谢

这是我做的一个记事本的搜索源码，第一个查找可以使用，但是下面的继续查找却不能用，只会往前走一步
'查找
Private Sub cazao_Click()
sFind = InputBox("请输入要查找的字、词：", "查找内容", sFind)
RichTextBox1.Find sFind
End Sub

'继续查找
Private Sub xiage_Click()
RichTextBox1.SelStart = RichTextBox1.SelStart + RichTextBox1.SelLength + 1

End Sub

你好！
这是我做的一个记事本的搜索源码，第一个查找可以使用，但是下面的继续查找却不能用，只会往前走一步
请帮我看看是不是我哪个地方错了
谢谢！

'查找
Private Sub cazao_Click()
sFind = InputBox("请输入要查找的字、词：", "查找内容", sFind)
RichTextBox1.Find sFind
End Sub

'继续查找
Private Sub xiage_Click()
RichTextBox1.SelStart = RichTextBox1.SelStart + RichTextBox1.SelLength + 1

End Sub