This example adds a label that contains the text "Test Label" to a new document.
Set myDocument = Documents.Add
Set myLabel = myDocument.Shapes _
.AddLabel(Orientation:=msoTextOrientationHorizontal, _
Left:=100, Top:=100, Width:=300, Height:=200)
myLabel.TextFrame.TextRange = "Test Label"