Super and Subscript in RichTextBox

[moeur]

The RichTextBox control supports the RTF codes for super and subscripting, but the control itself does not give you access to those features.
Here is some simple code to add that functionality.
Public Sub SetSubScript(RTB As RichTextBox)
Dim iPos As Long
Dim strRTF As String
With RTB
If .SelCharOffset >= 0 Then
iPos = .SelStart
.SelText = Chr(128) & .SelText & Chr(129) ' \'80 \'81
strRTF = Replace(.TextRTF, "\'80", "\sub\dn1 ")
.TextRTF = Replace(strRTF, "\'81", "\nosupersub\up0 ")
.SelStart = iPos
Else
.SelText = Chr(128) & .SelText
strRTF = .TextRTF
.TextRTF = Replace(strRTF, "\'80", "\nosupersub\up0 ", , 1)
End If
End With
End Sub

Public Sub SetSuperScript(RTB As RichTextBox)
'add tags \super\up1 and \nosupersub\up0
Dim iPos As Long
Dim strRTF As String

With RTB
iPos = .SelStart
If RTB.SelCharOffset <= 0 Then
.SelText = Chr(128) & .SelText & Chr(129) ' \'80 \'81
strRTF = Replace(.TextRTF, "\'80", "\super\up1 ")
.TextRTF = Replace(strRTF, "\'81", "\nosupersub\up0 ")
Else
.SelText = Chr(128) & .SelText
strRTF = .TextRTF
.TextRTF = Replace(strRTF, "\'80", "\nosupersub\up0 ", , 1)
End If
.SelStart = iPos
End With

End Sub