Programmer un boutton d'option

Bonjour,
le probléme est le suivant:
j'ai un questionnaire ou chaque question est attribuée à DEUX bouttons d'option
l'option button 1 on lui attribue VRAI et l'option button 2 on lui attribue FAUX
la reponse juste à la question poura etre VRAI ou FAUX.une fois la reponse juste est cochée
elle est comptabilisée par 1 point. à la fin on fait la somme des points des reponses justes qui est le score et à partir du quel on assimilera un conclusion se rapportant au profil psychologique
de la personne consersné par le test .

je souhaite avoir un aide sur le code suivant s'il est exact ou non :

option Explicit
Private N as integer
Private R as integer
Private P as integer
Private M as integer
Private score as integer
Sub command1_clik
'optionbutton1.value = true et optionbutton2.value = false est la reponse juste
'optionbutton3.value = true et optionbutton4.value = false est la reponse juste
'optionbutton5.value = true et optionbutton6.value = false est la reponse juste
'optionbutton7.value = true et optionbutton8.value = false est la reponse juste
if optionbutton1.value = true then
N=1
elseif optionbutton2.value = true then
N=0
end if
if optionbutton3.value = true then
R=1
elseif optionbutton4.value = true then
R = 0
end if
if optionbutton5.value = true then
P=1
elseif optionbutton6.value = true then
P=0
end if
if optionbutton7.value = true then
M=1
elseif optionbutton8.value = true then
M=0
endif
score = N+R+P+M
if score >=10 and score <=20 then
textAffichage.Text = " Mr X presente les symptome de la phobie scolaire "
elseif score>20 and score <=30 then
textAffichage.Text = " Mr X presente les symptome d'une dépression "
end if

end sub

en voila mon initiative j'espere obtenir de l'aide de votre part et merci d'avance

bien cordialement

samari