Can someone verify this vba bug still exists from X7?

Type some text then highlight a couple of characters then run the macro. All other "Positions" work but not Superscript. Just wonder if it was fixed with 2017.

Sub TextToSupercript()
Dim p As Variant
p = ActiveShape.Text.Selection.Position

ActiveShape.Text.Selection.Position = cdrSuperscriptFontPosition
End Sub