VBA Algorithme

Sub test()
Dim Age, Nationalité, Casier

Age = InputBox("Quel est votre âge ?")
Nationalité = UCase(InputBox("Êtes-vous de nationalité française? Répondre par oui ou non"))
Casier = UCase(InputBox("Avez-vous un casier vierge ? Répondre par oui ou non"))

If CStr(Age) < 26 And CStr(Nationalité) <> "oui" And CStr(Casier) <> "oui" Then
MsgBox "Vous n'êtes pas admis aux examens. Présentez-vous au poste de police le plus proche."
Else
MsgBox "Vous êtes admis aux examens. Presentez-vous à l'infirmerie pour éffectuer vos analyses."
End If

End Sub

Sub AutorisationExamen()
MsgBox "Merci de remplir le questionnaire suivant", vbInformation, "Bienvenu"
If MsgBox("Avez-Vous plus de 25 ans ?", vbYesNo + vbExclamation, "Votre Age") = vbNo Then
MsgBox "Il faut avoir plus de 25 ans pour être accepté !", vbCritical, "ACCEPTATION": Exit Sub
End If
If MsgBox("Votre Nationalité est FRANCAISE ?", vbYesNo + vbExclamation, "NATIONALITE") = vbNo Then
MsgBox "Il faut être de nationalité Française pour être accepté !", vbCritical, "ACCEPTATION": Exit Sub
End If
If MsgBox("Avez-Vous un casier judiciaire ?", vbYesNo + vbExclamation, "JUSTICE") = vbYes Then
MsgBox "Il ne faut pas avoir de casier judiciaire pour être accepté !", vbCritical, "ACCEPTATION"
End If
End Sub

Sub a()
Dim A, N, C
A = InputBox("Quel est votre âge ?", "Age du candidat", 0)
N = MsgBox("Êtes-vous de nationalité française?", vbYesNo, "Nationalité")
C = MsgBox("Avez-vous un casier vierge?", vbYesNo, "Situtation judiciaire")
If A < 26 And (N + C) = 12 Then
MsgBox "Vous êtes admis aux examens." & Chr(13) & "Presentez-vous à l'infirmerie pour éffectuer vos analyses.", vbInformation
Else
MsgBox "Vous n'êtes pas admis aux examens." & Chr(13) & "Présentez-vous au poste de police le plus proche.", vbCritical
End If
End Sub