If Selection.Type = wpsSelectionNormal Then
mySel = Selection.Font.Subscript
If mySel = wpsUndefined Or mySel = True Then
MsgBox "Subscript text exists in the selection."
Else
MsgBox "No subscript text in the selection."
End If
Else
MsgBox "You need to select some text."
End If