Text in Textblock ausrichten?

[unrealzero_php]

Hallo zusammen

In einem Excel-Dokument habe ich ein Makro welches mir Textfelder in die gewählten Felder zeichnet. Jedes erstellt Feld enthält einen Text. Nun möchte ich, dass der Text von unten nach oben ausgerichtet wird, wie bzw. wo kann ich dies ändern?

If Symbolerstellung Then
    ActiveSheet.TextBoxes.Add _
    200, 20, 13, 13 ' 13, damit es die gerade die Taille der Symbolbildchen hat
Else
    ActiveSheet.TextBoxes.Add _
    Selection.Left, Selection.Top, Selection.Width, Selection.Height
End If
ActiveSheet.TextBoxes(ActiveSheet.TextBoxes.Count).Select
If Not Symbolerstellung Then
    Selection.HorizontalAlignment = xlCenter
    Selection.HorizontalAlignment = xlCenter
    ' alignement vertikal
    If Selection.Height < Selection.Width Then
        Selection.Orientation = xlVertical
    End If
End If