Problème vb sous access

Bonjour,

Voilà j'ai un petit soucis : quand je clique sur un bouton qui se nomme "Ajouter un niveau" je veux qu'il m'affiche une InputBox où je puisse saisir une lettre (A ou N) et que selon la lettre saisie il m'affiche une MsgBox différente mais le problème qui se présente c'est que quoi que je saisisses il m'affiche la deuxième msgbox.
Aider moi s'il vous plaît.

Voici le code vb sous access :

Private Sub NIVEAU_Click()
Dim Lettre As String
Dim A As String

Lettre = InputBox("Saisir A pour affichage ou N pour nouveau")

If Lettre = A Then
MsgBox ("Avez-vous envi d'aller au toillette ?")
Else
MsgBox ("Allez-y pas")
End If
End Sub