関数で分けられているかわかりませんが、
出題する部分に問題があるとは考えていません。
先ほど伝えたかったのは――
答えを格納した部分に問題がないかチェックしてほしかったんです。

デバッグすればわかるとは思うんですが、
現段階では使うのは無理だと思います。
もし、見つからないようなら答えを格納した部分と、
答えを判断するコードを載せてください。
中途半端になるようなら全部記載してもらってもいいですが、
その場合は、変数にコメントを入れてください。

' 答えを格納 

Dim iAnser As Integer