Guarda questo esempio:
codice:
Dim f As Font

With RichTextBox1
    f = New Font(.Font, FontStyle.Bold)
    .SelectionFont = f
End With