怎么给富文本框的“编辑”菜单加一个“全部替换”

如何给富文本框的“编辑”菜单加一个“全部替换”
已经有一个“替换”选项了，但只能一个一个换。
Private   Sub   ExchangeCmd_Click()
        '     循环进行替换
        Do   While   frmEditor!txtEdit.Find(FindTxt)   <>   -1
                frmEditor!txtEdit.SelText   =   ExchangeTxt
        Loop
        MsgBox   "替换完毕！ ",   vbInformation,   "记事本 "
        frmEditor!txtEdit.SetFocus
End   Sub

[解决办法]
全部替换也是1个1个的替换的!
[解决办法]
replace
[解决办法]
replace "asdf ", "a ", "b "