I have something to say about this code:
Code:
For i = 0 To 9
If (inno(i) >= 0 And inno(i) <= 9) Then
This was really weird, because you can't input anything else than a 10-digit number. I guess you need an array.

An array is created like this:

Dim numbers(0 To 9) As Integer

EDIT: Oh, and to answer your question, use something like this:
Code:
For i = 0 To 9
...