This example displays the first character in the selection. If nothing is selected, the character immediately after the insertion point is displayed.
char = Selection.Characters(1).Text
MsgBox "The first character is... " & char
This example returns the number of characters in the first sentence in the active document (spaces are included in the count).
numchars = ActiveDocument.Sentences(1).Characters.Count