Private
Function
prime(n
As
Integer
)
Boolean
Dim
m
For
m = 2
To
Sqr(n)
If
n
Mod
m = 0
Then
Exit
Next
prime =
True
End