VBA powerpoint

Dim nilai As Integer

Dim konfirmasi As String

Sub mulai_kuis()

nilai = 0

ActivePresentation.SlideShowWindow.View.Next

End Sub

Sub benar()

konfirmasi = MsgBox("Yakin dengan jawaban anda?", vbYesNo, " Cek Jawaban!")

If konfirmasi = vbYes Then

nilai = nilai + 10

ActivePresentation.SlideShowWindow.View.Next

End If

End Sub

Sub salah()

konfirmasi = MsgBox("Yakin dengan jawaban anda?", vbYesNo, " Cek Jawaban!")

If konfirmasi = vbYes Then

ActivePresentation.SlideShowWindow.View.Next

End If

End Sub

Sub cek_skor()

MsgBox (" skor anda adalah " & nilai)

konfirmasi = MsgBox(" Ingin Mengulangi kuis? ", vbYesNo)

If konfirmasi = vbYes Then

ActivePresentation.SlideShowWindow.View.First

End If

If konfirmasi = vbNo Then

ActivePresentation.SlideShowWindow.View.Next

End If

End Sub