Visual Basic - AYUDA

Este es el codigo que pido para lo que me falta
Private Sub mnubuscampo_Click()
Dim escrito As String
escrito = "[...]"
'HA DE ENCONTRAR EL SIGUIENTE CAMPO QUE SEA IGUAL A [...] EN EL DOCUMENTO ABIERTO EN EL RICHTEXTBOX.
End Sub
Private Sub mnucrear_Click()
'HA DE ESCRIBIR [...] EN LA POSICIÓN SELECIONADA DENTRO DEL DOCUMENTO DEL RICHTEXTBOX.
Dim escrito As String
escrito = "[...]"
'La siguiente función lo imprime pero borra el texto. Abrá que ponerlo dentro de algún bucle.
'rtfRichTextBox1 = escrito
End Sub

GRACIAS