Subscript Property Example

This example makes the second character in cell A1 a subscript character.

Worksheets("Sheet1").Range("A1") _
    .Characters(2, 1).Font.Subscript = True