If Range("I30").Characters(24, 1).text = "2" Then
Range("I30").Characters(Start:=23, Length:=3).Font.Superscript = True
ElseIf Range("I30").Characters(26, 1).text = "2" Then
Range("I30").Characters(Start:=25, Length:=3).Font.Superscript = True
End If