Метод Findandreplace объекта Notesrichtextrange

Требуется заменить несколько слов в поле RichText на другие значения
Делаю в цикле так
...
Set rtrange = inItemBody.CreateRange()
loc_count% = rtrange.FindAndReplace( searchString$, replaceString$, _
RT_REPL_ALL + RT_REPL_PRESERVECASE )
...
если идти через отладчич, то всё работает
а в обычном режим замена происходит криво

глюк метода ?