ช่วยแก้โค้ดสรุปคะแนนสอบ PowerPoint หน่อยค่า

ช่วยแก้โค้ดให้หน่อยค่ะ พึ่งเขียนครั้งแรก อาจารย์ให้ทำงานส่ง เป็น  POWERPOINT ข้อสอบ ให้เขียนโค้ดสรุปคะแนนสอบ แต่พอทำข้อสอบเสร็จ คะแนนรวมมันได้ 1 จะทำถูกกี่ข้อก็ได้แค่ 1 คะแนน ช่วยหน่อยค่า 🙏 

[Spoil] คลิกเพื่อดูข้อความที่ซ่อนไว้Sub correct()
score = score + 1
ActivePresentation.Slides(7).Shapes("Scorebox").TextFrame.TextRange.Text = score
ActivePresentation.SlideShowWindow.View.Next
End Sub
Sub incorrect()
ActivePresentation.SlideShowWindow.View.Next
End Sub
Sub Exitgame()
ActivePresentation.SlideShowWindow.View.Exit
End Sub
Sub Restartgame()
score = 0
ActivePresentation.Slides(7).Shapes("Scorebox").TextFrame.TextRange.Text = score
ActivePresentation.SlideShowWindow.View.GotoSlide (2)
End Sub