Selection.Characters (Word)

Devuelve una colección Characters que representa los caracteres de un documento, intervalo o selección.

Para obtener información sobre cómo devolver un solo miembro de una colección, vea devolver un objeto de una colección.

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