TextFrame.TextRange (Word)
Gibt ein Range -Objekt zurück, das den Text im angegebenen Textframe darstellt.
Set myTBox = ActiveDocument.Shapes _
.AddTextBox(Orientation:=msoTextOrientationHorizontal, _
Left:=100, Top:=100, Width:=300, Height:=200)
myTBox.TextFrame.TextRange = "Test Box"