RichTextBox: no puedo aplicar negrita.

[ci2000]

Hola, en un texto previamente escrito en un RichTextBox al hacer un clic en el botón Negrita automáticamente agrega “Texto en negrita” (esto puede ir en cualquier parte del texto), pero al continuar escribiendo no quiero seguir haciéndolo con negrita por lo tanto al código fuente le agregué que la anule. El tema está en que de esta última forma no me aplica la negrita. ¿Qué hago mal?

Código:

Private Sub Command1_Click()
 RichTextBox1.SelBold = True
 SendKeys "«Texto en negrita»"
 RichTextBox1.SelBold = False 'Esto debería anular la negrita en la posición actual, pero lo hace ne todo el texto.
 RichTextBox1.SetFocus
End Sub

Private Sub Form_Load()
 Command1.Caption = "Negrita"
 RichTextBox1.Text = "Este texto es para probar"
End Sub

Gracias desde yá por las respuestas.
Saludos

[Avellaneda]

¿No lees las respuestas a tus mensajes anteriores?

http://www.forosdelweb.com/f69/no-ma...extbox-560112/

Parece que no, ya que ni te dignaste responder si sirvió o no!

[ci2000]

Hola Avellaneda.
Las respuestas que hiciste a los mensajes anteriores me sirvieron y andan al pelo, gracias por tus respuestas.
Lo que planteo en este post es otro caso (similar a lo que ya me respondiste pero no igual).

Gracias y saludos