Visual Basic - Como capturo Nrs Primos

como es el codigo para saber cules son los numeros primos de N cantidad de numeros

Private Sub Form_Load()
Dim desde As Long
Dim hasta As Long

desde = InputBox("desde")
hasta = InputBox("Hasta")

For i = desde To hasta
If EsPrimo(i) Then
Debug.Print i
End If
Next i

End Sub
Private Function EsPrimo(ByVal Nro As Long) As Boolean
'cabe destacar que el 0 es primo
divisor = 2
EsPrimo = True
Do While EsPrimo And divisor <= (Nro / 2)
If Nro Mod divisor = 0 Then EsPrimo = False
divisor = divisor + 1
Loop

End Function