In diesem Beispiel wird das letzte Zeichen in Zelle A1 hoch gestellt.
n = Worksheets("Sheet1").Range("A1").Characters.Count Worksheets("Sheet1").Range("A1") _ .Characters(n, 1).Font.Superscript = True