VBA 素数判定(関数使用)

関数

Function IsPrime(m As Integer) As String
Dim I As Integer
Dim a As Integer

For I = 2 To m - 1
If m Mod I = 0 Then
a = 1
End If
Next I

If a = 1 Then
IsPrime = "素数ではない。"
Else
IsPrime = "素数である。"
End If

End Function

Sub 素数判定()
Dim N As Integer
N = InputBox("n =")
Call MsgBox(IsPrime(N))
End Sub