Search within text range

[Rocko]

I'm programming on VB6. I use findFirst to find some text in a document and get a TextRange as a result. Now I want to search within that text range. How do I do it?

IE:

Set oSearchDescriptor = oDoc.createSearchDescriptor()
oSearchDescriptor.SearchString = "SOMETHING"
Dim oMatch As Variant
Set oMatch = oDoc.findFirst(oSearchDescriptor)

oMatch <--- Find something here. I need another text range as a result

Thanks for the help.