動作チェックはされましたか？ 11行目で文字配列変数と数値変数を比較しているので Type mismatchになると思いますよ。