VBA probleme avec InputBox

Bonjour,
J'ai fais une programmation avec InputBox dans laquelle le programme va donner les informations selon la valeur que j'ai saisie.Mais là a fin du programme la boite de dialogue MSGBox ne s'affiche pas. Je ne comprend pas pourquoi.
Pouvez-vous m'aider?

voici la programmation
Sub Produit()
Dim Produit As String
Produit = ""
'Contrôle de la saisie effectué
'Boucle à répéter tant qu'aucune saisie est effectuée
'ou tant que le texte saise n'existe pas
Do While WorksheetFunction.CountIf(Range("Produit !A4:C25"), _
"SIROP" & Produit) = 0
Produit= inputBox(« Pour quel fruit recherchez-vous le sirop ? »,100$Fruit&Soleil »)
Loop
Dim Produit As String
Dim Prix As Integer
‘Recherche du prix et de la quantité en stock
Prix = WorksheetFunction.VLookup("Sirop" & Produit, Range("A4:C25"), 2, False)
QTSO = WorksheetFunction.VLookup("SIROP" & Produit, Range("produits!A4:C25"), 3, False)
'Affichage des infos demandées
'chr(10) permet d'effectuer un saut de ligne
Reponse = MsgBox("SIROP" & Produit & Chr(10) & Chr(10) & "Prix" & Prix & "Qté en Stock:" & QTSO, vbOKOnly, "100% FRUIT &SOLEIL")
End Sub



Merci d'avance