Несовпадение типов данных - VB

Формулировка задачи:

подскажите пожалуйста, как обозначить вводимую через InputBox переменную (допустим N), чтобы ее потом можно было использовать в качестве счетчика For...do N ? я обозначаю: N As Variant и ввожу N= InputBox () , а в цикле For...do N - выдает ошибку Error13(( ___________________________ N As Byte и ввожу N= InputBox () - выдает ошибку Error13((

Решение задачи: «Несовпадение типов данных»

textual
                            Листинг программы 
                        

                            q: durac
If y = "" Then Exit Sub
If (y > 0) Then
                        