Characters.Count Property (Excel)
Returns a Long value that represents the number of objects in the collection.
Syntax
expression .Count
expression A variable that represents a Characters object.
Example
This example makes the last character in cell A1 a superscript character.
Sub MakeSuperscript()
Dim n As Integer
n = Worksheets("Sheet1").Range("A1").Characters.Count
Worksheets("Sheet1").Range("A1").Characters(n, 1) _
.Font.Superscript = True
End Sub