Ciao.
Prova così. Ho messo come esempio due bottoni.
' Selezionare prima il testo che si vuole mettere come apice
Private Sub btnApice_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnApice.Click
'applica l'apice al testo selezionato cambiando dimensione font e posizione sulla riga
RichTextBox1.SelectionFont = New Font(RichTextBox1.Font.FontFamily, 8)
RichTextBox1.SelectionCharOffset = 10
End Sub
' Selezionare prima il testo che si vuole mettere come pedice
Private Sub btnPedice_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPedice.Click
'applica il pedice al testo selezionato cambiando dimensione font e posizione sulla riga
RichTextBox1.SelectionFont = New Font(RichTextBox1.Font.FontFamily, 8)
RichTextBox1.SelectionCharOffset = -10
End Sub