How to send text that contain subscript and superscript from a macro to a cell?

[thomaspatton]

[VBA]Public Sub SubScriptEnter()
With Worksheets("Sheet1").Range("c1")
.Value = "Chem2 on Route66"
.Characters(5, 1).Font.Subscript = True
.Characters(15, 2).Font.Subscript = True
End With
End Sub[/VBA]

Main variable is the ".Character(5,1)" portion, where the first number is equal to the count of the letter you want subscripted and the second number being the number of letters after that to subscript.

If you run this code, for example, it will only Subscript the "2" and the "66".