In my notepad project I inserted the possibility to have an indented paragraph. Unfortunately following code indents all the text:


Private Sub ind_Click()
With ActiveForm.rtfText
.SelStart = 1
.SelLength = Len(.Text) ‘THIS SELECT TO THE END OF TEXT.
.SelIndent = 1440
.SelRightIndent = 1440
End With
End Sub

The wrong line is the one commented (this select ...)I should substitute with a line which apply the modification only at one paragraph end is encountered (I mean, until a "."(dot = end of phrase) is met)
How could I do ?
Thanks in advance.

I think you can use the InStr function

Function InStr([Start], [String1], [String2], [Compare As VbCompareMethod = vbBinaryCompare])
    Member of VBA.Strings
    Returns the position of the first occurrence of one string within another

Greetz

Tom