Superscript and Subscript

[ager]

Don't work text position option in VBA code. For example, if I try to execute this code in VBA (CorelDraw X4):

Sub Test()
Dim d As Document
Dim s As Shape
Dim t As Text
Set d = CreateDocument
Set s = d.ActiveLayer.CreateParagraphText(2, 2, 4, 4, "This is an example.")
Set t = s.Text
t.Story.Words.First.Position = cdrSuperscriptFontPosition
End Sub

Run-time error appear, but if I write t.Story.Words.First.Position = cdrSubscriptFontPosition
(instead Superscript, like in VBA help) i have no error.