Formatere tal i cellen til sænket skrift

Jeg skal sammensætte en række kemiske formeler ,eksempelvis jernnitrat Fe(NO3)3, men tallene skulle gerne stå med sænket skrift. Da det er en formel der sammensætter Fe(NO3)3, kan jeg ikke bare markere tallet og gå i formater skrifttype osv.

Har prøvet at lave nedenstående funktion, som jeg kalder med My_subscript(formel med hvissætninger), men den skriver 0 i cellen
Public Function My_subscript()

Dim StringLen As Integer
StringLen = Len(Sub_String)

For i = 1 To StringLen
    With ActiveCell.Characters(Start:=i, Length:=1).Font
            If Mid(Sub_String, i, 1) = "2" Or "3" Or "4" Then
            .Subscript = True
            Else
            .Subscript = False
            End If
    End With
'    MsgBox ("i er " & i & " og tegnet er " & Mid(Sub_String, i, 1))
Next
End Function

har også testet lignende makro:
Sub test()
    Range("E14").Select
    With ActiveCell.Characters(Start:=3, Length:=1).Font
        .Subscript = True
    End With
End Sub
og den virker kun når det er tekst der er skrevet ind i cellen - ikke på resultatet af en formel.

hvordan kan jeg få det til at virke på resultatet af en formel