Selection.Characters (Word)

Returns a Characters collection that represents the characters in a document, range, or selection.

For information about returning a single member of a collection, see Returning an object from a collection.

char = Selection.Characters(1).Text 
MsgBox "The first character is... " & char