Write a VBA function to check if a number is a prime number or not.

Microsoft Excel - Interview Questions and Answers

Sub Prime()
  Dim divisors As Integer, number As Long, i As Long
  divisors = 0
  number = InputBox(“Enter a number”)
 For i = 1 To number
If number Mod i = 0 Then
    divisors = divisors + 1
 End If
 Next i
If divisors = 2 Then
    MsgBox number & “ is a prime number”
 Else
    MsgBox number & “ is not a prime number”
 End If
End Sub