Прости числа - проверка дали едно число е просто

Функция в exsel показваща дали едно число е просто или не:

Function IsPrimeNumber(n)
'резултатът е true ако числото n е просто и false в противен случай
Dim S() As Boolean
ReDim S(2 To n) As Boolean
For i = 2 To n
S(i) = True
Next i
For i = 2 To n / 2
If S(i) Then
k = 2
j = k * i
While j <= n
S(j) = False
k = k + 1
j = k * i
Wend
End If
Next i
IsPrimeNumber = S(n)
End Function