How to make the decimal part of a number smaller

@Hamibou, maybe this is what you are looking for.

With a small addition to the code of mehmetcik, you can get you "superscript":

Sub ColX()
    t = Format(ActiveCell.Value, "000,000.00")
    ActiveCell = t
    l1 = InStrRev(t, ",")
    
    With ActiveCell.Characters(l1 + 1, Len(t) - l1)
        .Font.Bold = True
        .Font.ColorIndex = 3
        .Font.Size = 12
    End With
    With ActiveCell.Characters(l1 + 1, Len(t) - l1).Font
        .Superscript = True
    End With
End Sub

Cheers
Erwin