Составить программу, определяющую, является ли данное число N простым - VB

'Теорема Вильсона
Private Sub Command1_Click()
Dim n As Single
n = InputBox("Vvedite N")
If n < 1 Then
MsgBox "error"
Exit Sub
End If
If (fact(n - 1) + 1) Mod n = 0 Then
MsgBox "Prostoe"
Else
MsgBox "ne prostoe"
End If
End Sub
 
Private Function fact(n As Integer) As Single
If n < 1 Then
fact = 1
Else
fact = n * fact(n - 1)
End If
End Function