求一个素数判断函数

Dim i As Integer, n As Integer
n = Text1
For i = 2 To n - 1
If n Mod i = 0 Then Exit For
Next
If i = n Then
Text1 = n & "是素数"
Else
Text1 = n & "不是素数"
End If