I'm trying to justify text

Any ideas

Private Sub CommandButton3_Click()
Object.GetSelectedElements
    Dim oEnumerator As ElementEnumerator

    Set oEnumerator = ActiveModelReference.GetSelectedElements

    Do While oEnumerator.MoveNext
        Dim oElement As Element

        Set oElement = oEnumerator.Current

        oElement.TextStyle.NodeJustification =
msdTextJustificationLeftTop
        oElement.TextStyle.Justification = msdTextJustificationLeftTop
        oElement.Redraw msdDrawingModeNormal
        oElement.Rewrite
    Loop

    ActiveModelReference.UnselectAllElementsEnd Sub
    End Sub