Dim userName As String
Dim userEmail As String
Dim userIdea As String
Dim nextIndex As Long

Sub YourName()
    Dim done As Boolean
    
    done = False
    While Not done
        userName = InputBox(prompt:="Type your name", _
            Title:="Name")
        If userName = "" Then done = False Else done = True
    Wend
End Sub

Sub YourEmail()
    Dim done As Boolean
    
    done = False
    While Not done
        userEmail = InputBox(prompt:="Type your Email Address", _
            Title:="Email")
        If userEmail = "" Then done = False Else done = True
    Wend
End Sub

Sub YourIdea()
    userIdea = InputBox(prompt:="Type one project idea (optional)", _
           Title:="Idea")
End Sub

Sub GetNameEmailIdea()
    YourName
    YourEmail
    YourIdea
End Sub

Sub GoToWorkTogether()
    ActivePresentation.SlideShowWindow.View.GotoSlide (10)
End Sub

Sub Save()
    ActivePresentation.Save
End Sub
Sub AddNextSlideButton(index As Long)
    Dim myShape As Shape
    
    Set myShape = ActivePresentation.Slides(index).Shapes.AddShape(msoShapeActionButtonForwardorNext, 612#, 456#, 82.12, 82.12)
    With myShape.ActionSettings(ppMouseClick)
        .Action = ppActionNextSlide
        .SoundEffect.Type = ppSoundNone
        .AnimateAction = msoTrue
    End With
    With myShape
        .Fill.ForeColor.SchemeColor = ppAccent1
        .Fill.Visible = msoTrue
        .Fill.Solid
        .Line.ForeColor.RGB = RGB(255, 255, 255)
        .Line.Visible = msoTrue
    End With
End Sub

Sub AddWorkTogetherSlide()
    Dim myID As Long
    
    myID = ActivePresentation.Slides.Add(index:=11, Layout:=ppLayoutText).SlideID
    With ActivePresentation.Slides(11)
        .Shapes(1).TextFrame.TextRange.Text = userName & " is interested in working with you."
        .Shapes(2).TextFrame.TextRange.Text = "Email: " & userEmail
        With .Shapes(2).TextFrame.TextRange
            If userIdea = "" Then .Text = .Text & Chr$(13) & "No ideas entered" _
                Else .Text = .Text & Chr$(13) & "An idea to ponder: " & userIdea
        End With
    End With
    AddNextSlideButton (11)
End Sub

Sub WorkTogether()
    GetNameEmailIdea
    GoToWorkTogether
    AddWorkTogetherSlide
    Save
End Sub

Sub GoToPartners()
    ActivePresentation.SlideShowWindow.View.GotoSlide (11)
End Sub