求助 richtextbox 查找问题

Private Sub menuEditFind_Click()
    Dim strFindString As String
   
    '输入要查找的文本
    strFindString = InputBox("输入要查找的字符", "查找", rtbRichText.SelText)
   
    '从头开始查找输入的文本
    rtbRichText.SelStart = 0
    '返回查找到的文本
    rtbRichText.Find strFindString, , Len(rtbRichText.TextRTF)
   
End Sub

为什么查找到的文字不以选中的方式出来？ 是什么属性没有设置好吗？