Sub AddPlants()
    Dim newstuff As String
    
    newstuff = InputBox("What is a plant sign of Spring?")
    If newstuff <> "" Then
        With ActivePresentation.SlideShowWindow.View.Slide.Shapes(2).TextFrame.TextRange
            .Text = .Text + Chr$(13) + newstuff
        End With
    End If
End Sub

Sub AddAnimals()
    Dim newstuff As String
    
    newstuff = InputBox("What is an animal sign of Spring?")
    If newstuff <> "" Then
        With ActivePresentation.SlideShowWindow.View.Slide.Shapes(3).TextFrame.TextRange
            .Text = .Text + Chr$(13) + newstuff
        End With
    End If
End Sub