Dim fontFamily As New FontFamily("Arial")
Dim font As New Font( _
                fontFamily, _
                16, _
                FontStyle.Regular, _
                GraphicsUnit.Pixel)
 
Me.RichTextBox1.Text = "Ein Hund ging spazieren."
Me.RichTextBox1.SelectionStart = 4
Me.RichTextBox1.SelectionLength = 4
Me.RichTextBox1.SelectionFont = font
Me.RichTextBox1.SelectionStart = 0
Me.RichTextBox1.SelectionLength = 0

Beste Wünsche,
Bran
---
Du stolperst nicht durch die Steine die Dir in den Weg gelegt werden,
sondern durch die Einfallslosigkeit ihnen aus dem Weg gehen zu können.