代碼如下，妳先把查找的內容賦值於FindTxt變量
RichTextBox1.Find (FindTxt)
If RichTextBox1.Find(FindTxt) = -1 Then
MsgBox "沒有找到相關的字符！", 48, "查找"
End If
這樣找到之後自動選中文字
方法二：用字符串操作，自定義壹個函數