In diesem Beispiel wird das zweite Zeichen in Zelle A1 tief gestellt.
Worksheets("Sheet1").Range("A1") _ .Characters(2, 1).Font.Subscript = True