Msgbox sans commentaire

Bonjour à tous,

J'ai écrit une petite macro permettant de quitter un programme après choix d'une option par l'un des boutons de la MsgBox. Si toutes mes options se comportent bien comme souhaité je déplore l'absence du message prévu.
Voici mon code

"Sub QUITTER()
Msg = "VOULEZ-VOUS EFFACER LES DONNÉES" & Chr(10) & "PRÉSENTES A L'ÉCRAN AVANT DE QUITTER ?"
Select Case MsgBox(Mgs, vbYesNoCancel, "QUITTER")
Case vbYes
Call NOUVELLE_ROUTE
Application.Quit
Case vbNo
Application.Quit
End Select
Application.DisplayAlerts = False
End Sub"

Qu'est-ce qui ne vas pas dans ce code?
En souhaitant à tous UNE BONNE FIN D'ANNÉE ET UN RÉVEILLON DE RÊVE,
Amicalement.