Visual Basic - Buscar en richtextbox

Quiero buscar esta cadena en un richtextbox: <...> Y cuando la encuentre que el cursor se situe ahí.
Creo que habrá que hacer algo así:

posicion1=a donde este el cursor
si posicion1 = < y posicion2, posicion3, posicion4=. , y posicion5=>
entonces enviar cursor antes de posicion1

GRACIAS

Bueno marval, esto es todo lo que nececitas, solo crea un formulario, dibuja en el un richtext y copia est código, y ya esta, pero porfa ya termina ese programa :P

Private nPos As Long

Private Sub Command1_Click()

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

Me.RichTextBox1.SelStart = nPos
Me.RichTextBox1.SelLength = 5
Me.RichTextBox1.SelText = InputBox("Ingrese el valor ")

End If

End Sub

Private Sub Form_Load()

Dim nRepetir As Integer

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

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

End Sub

Bueno marval, esto es todo lo que nececitas, solo crea un formulario, dibuja en el un richtext y copia est código, y ya esta, pero porfa ya termina ese programa :P

Private nPos As Long

Private Sub Command1_Click()

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

Me.RichTextBox1.SelStart = nPos
Me.RichTextBox1.SelLength = 5
Me.RichTextBox1.SelText = InputBox("Ingrese el valor ")

End If

End Sub

Private Sub Form_Load()

Dim nRepetir As Integer

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

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

End Sub