Вывести все простые числа из интервала от 2 до N - VB

Option Explicit 
 
Sub Простые_числа() 
Dim I As Long, N As Long 
 
N = InputBox("Введите верхний предел -") 
 
Debug.Print 2 
For I = 3 To N Step 2 
  If isSimple(I) Then 
    Debug.Print I 
  End If 
Next I 
 
End Sub 
 
Function isSimple(I As Long) As Byte 
Dim J As Long 
 
  For J = 3 To Int(Sqr(I)) Step 2 
    If (I Mod J) = 0 Then Exit Function 
  Next J 
  isSimple = 1 
End Function