This example enlarges the first character in the title on slide one if that character is subscript.
With Application.ActivePresentation.Slides(1) _
.Shapes.Title.TextFrame.TextRange
With .Characters(1, 1).Font
If .Subscript Then
scaleChar = -20 * .BaselineOffset
.Size = .Size * scaleChar
End If
End With
End With