Sub AddStar()
    Dim myShape As Shape
    
    MsgBox ("Entering the procedure AddStar")
    Set myShape = _
        ActivePresentation.SlideShowWindow.View.Slide.Shapes.AddShape _
        (msoShape16pointStar, 100, 100, 100, 100)
    MsgBox ("I just added the shape, and I'm about to add some text.")
    myShape.TextFrame.TextRange.Text = "Good job!"
    MsgBox ("I just added some text, and I'm about to change the color.")
    mShape.Fill.ForeColor.RGB = vbBlue
    MsgBox ("Color is changed; now I'll change the size.")
    myShape.Height = 200
    myShape.Width = 200
    MsgBox ("I am about to leave AddStar.")
End Sub