Hello there. I need some help with this macros. I am trying to capture the scores from the text display on a shape and add it to another shape upon clicking a shape. I am trying to do this when in presentation mode. Here is what i have so far. Thank you

Sub addTeamScores(oshp As Shape)
Dim score, TeamAScore, TeamBScore As Double


Set osld = ActivePresentation.SlideShowWindow.View.Slide

score = CDbl(ActivePresentation.Slides(slideNum).Shapes("ScoreBoard").TextFrame.Tex tRange.Text)
TeamAScore = CDbl(ActivePresentation.Slides(slideNum).Shapes("Score1").TextFrame.TextRan ge.Text)
TeamBScore = CDbl(ActivePresentation.Slides(slideNum).Shapes("Score2").TextFrame.TextRan ge.Text)

Select Case oshp.Name
Case "Add1"
Call addScore(score, TeamAScore)
Case "Add2"
Call addScore(score, TeamBScore)
End Select

End Sub


Private Sub addScore(i As Double, j As Double)
j = j + i
i = 0
End Sub