Option Explicit Sub SetSuperscriptAndSubscript(ByVal PrefixChr As String, ByVal SetChr As String, Op…