エラーが起きるんですけど、対処してもまた同じエラーが起きてしまいます。

今、下のようなのを作っていますが、エラーが起きて対処しても同じエラーが何回も起きてしまいます　ちなみにエラー内容は、「型が一致していません：nextC」です
このような流れで作っています
１．Inputで数を入力してくださいとだし、打つ
２．その打った数とあらかじめ設定した数が一致すれば正解と出す
　　それよりも小さい場合　もっと大きい　大きい場合　もっと小さい
と出し、もう一回１と同じ画面を出す。　　3回設定でやっています。
どこが間違っているのか教えてください
尚、.vbsで保存しています。
Dim AAsInteger
Dim BAsInteger
Dim CAsInteger


A = 5
For C = 1 To 3
B = InputBox("数は")
If B = A Then
MsgBox ("正解"): Exit For
End If
If B < A Then
MsgBox ("もっと大きい")
Else
MsgBox ("もっと小さい")
End If
NextC
Next