Visual Basic - YA TENGO ESTO

Tengo este código y quisiera saber cómo hacer , ya que es un fichero rtf, y no sé muy bien como me coje las posiciones...
Os lo envio, lo mirais y me escribis a mi correo

Private Sub mnucrear_Click()
'HA DE ESCRIBIR [...] EN LA POSICIÓN SELECIONADA DENTRO DEL DOCUMENTO DEL RICHTEXTBOX.
Dim nPos As Integer
Dim Fin As Integer
Dim texto As String
Dim cad As String
cad = " <...> "
texto = rtfRichTextBox1.SelRTF
nPos = Me.rtfRichTextBox1.SelStart
Fin = Len(texto)

MsgBox (nPos)
MsgBox (Fin)

If nPos >= 0 Then
rtfRichTextBox1.SelRTF = Mid(texto, 1, nPos) & cad & Mid(texto, nPos + 4, Fin - nPos)
End If

End Sub

GRACIAS Y BESOS

Dentro del if en vez de npos+4, sería npos+1... Pero aún así no me funciona, comprobarlo vosotros dentro de un richtextbox. GRACIASSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS