search and replace via api

Hi,

I have a paragraph in a text document to remove. But it seams to search via ^text$ is not sufficient and I need to expand the found text with one more character at the end. how can I do that ?

oSrch = oDoc.createSearchDescriptor
oSrch.searchRegularExpression = True
oSrch.setSearchString("^$")

Dim xFound As Object = oDoc.findFirst(oSrch)

But how to extend the range which is found ?