Visual Basic - Sobre lo de antes tengo

Dim Pos As Integer
Dim Index As Integer

Pos = InStr(rtfRichTextBox1.Text, " <")
rtfRichTextBox1.SelStart = Pos
Index = InStr("rtfRichTextBox1.SelText", "<...>")

Solo me busca el primero, si lo borro, me busca el siguiente, pero lo que quiero ademas es que si hay uno que no quiero borrar, me busque el siguiente, entendeis???
ESPERO IMPACIENTE VUESTRA AYUDA
Gracias de antemano

bueno, aca esta el programa con la modificacion, dibuja un formulario un richtext y un command button y pega este codigo, bye

Private nPos As Long

Private Sub Command1_Click()

Dim sTexto As String

nPos = Me.RichTextBox1.Find("<...>", nPos)

If nPos > 0 Then

Me.RichTextBox1.SelStart = nPos
Me.RichTextBox1.SelLength = 5

sTexto = Trim$(InputBox("Ingrese el valor "))

If sTexto <> vbNullString Then
Me.RichTextBox1.SelText = sTexto
Else
nPos = nPos + 5
End If

End If

End Sub

Private Sub Form_Load()

Dim nRepetir As Integer

For nRepetir = 1 To 20
Me.RichTextBox1.Text = Me.RichTextBox1.Text & "fasdfs <...> adsfa"
Next

nPos = 0
Me.RichTextBox1.SelStart = 0
Me.RichTextBox1.HideSelection = False

End Sub