This example adds a vertical label that contains the text "Test Label" to myDocument
.
Set myDocument = ActivePresentation.Slides(1)
myDocument.Shapes _
.AddLabel(msoTextOrientationVerticalFarEast, 100, _
100, 60, 150).TextFrame.TextRange.Text = "Test Label"