Impossible to answer more than 1 question

This is a code I made where it asks you 5 questions and it is only possible to answer 1 right.

dim q1
dim q2
dim q3
dim q4
dim q5
q1=msgbox("Are you awesome?",4,"Q1")
If q1 = 6 then
msgbox("No you are not!")
else
msgbox("Incorrect!")
end if
q2=InputBox("How old are you","Q2")
msgbox("I don't believe you!  Wrong!")
q3=msgbox("Is your name Harry Potter?",4,"Q3")
If q3 = 6 then
msgbox("No you're not!")
else
msgbox("LIAR!!!")
end if
q4=InputBox("What is your name?",Q4)
msgbox("You dare lie to Yoda!")
q5=InputBox("How many questions did you get wrong?","Q5")
If q5 = 4 then
a=msgbox("Correct! You have now successfuly gotten 1 question right!")
else
a=msgbox("Incorrect!  You have gotten 0 questions right.")
end if
msgbox("Bye!")