Alignment not working in Corel VBA

Sub Kramank()
ActiveDocument.BeginCommandGroup "Kramank"
ActiveDocument.Unit = cdrCentimeter


If ActiveShape.Text.IsArtisticText = True Then
Exit Sub
End...