Sub AddScore(oShp As Shape)
    Dim score As Long
    Dim amount As Long
    With ActivePresentation.SlideShowWindow.View.Slide.Shapes(1) _
    .TextFrame.TextRange
        score = .Text
        amount = oShp.TextFrame.TextRange.Text
      .Text = score + amount
    End With
End Sub