Use the AddTextbox Method to add a text box to the eighth slide and assign text to it
Sub textBox() Dim myTextBox As Shape
With ActivePresentation.Slides(1)
Set myTextBox = .Shapes.AddTextbox _
(Orientation:=msoTextOrientationHorizontal, Left:=100, Top:=50, _
Width:=400, Height:=100)
myTextBox.TextFrame.TextRange.Text = "Corrective Lenses" End With End Sub