Дана числовая последовательность целых чисел - VB

Private Sub Command1_Click()
Dim N As Integer, kol As Integer, A As Integer, i As Integer
N = Val(InputBox(" N = "))
If N <= 0 Then Exit Sub
kol = 0
Randomize
For i = 0 To N - 1
    A = Rnd() * 100
    A = A * 10
    Debug.Print A,
    If A Mod 7 = 0 Then kol = kol + 1
Next i
Debug.Print
Debug.Print "Количество чисел, делящихся на 7 = " & kol
End Sub