Code VBA et insertion de valeur pour liste déroulante

Bonjour,
Je suis enseignante et j'ai décidé d'utiliser au mieux le TNI présent dans ma classe. Pleine d'enthousiasme je me lance dans un power point avec des textes à trous. L'idée est que les listes déroulantes donne plusieurs choix possibles aux élèves.
Après 4h de recherche, j'ai trouvé le mode développeur, insérer la liste déroulante dans ma première phrase mais je me casse les dents sur le code VBA pour insérer les valeurs... Très honnêtement je n'y connais rien en code. En fouillant sur différent forum j'en suis arrivée là :

Private Sub ComboBox1_DropButtonClick()
If ComboBox1.ListCount = 0 Then
With ComboBox1
ComboBox1.AddItem "?"
ComboBox1.AddItem "!"
ComboBox1.AddItem "."
ComboBox1.AddItem "..."
End With
End If
End Sub

Mais quand je lance le diaporama j'obtiens ce message : Erreur compilation attendu : identificateur.
Que manque t-il à mon code?

Bon sinon je ne tiens pas forcément à utiliser Power Point, alors si vous connaissez des solutions plus simple mais avec un design aussi sympa (choix des couleurs, des polices, des tailles, etc), je suis preneuse!