Visual Basic - LO CONSEGUÍ

Aquí esta el código que os pedía antes, ya lo he sacado.... Os lo dejo x si alguno le viene bien...

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.SelText
nPos = Me.rtfRichTextBox1.SelStart
Fin = Len(rtfRichTextBox1.Text)

'MsgBox (nPos)
'MsgBox (Fin)

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

End Sub