Option Explicit

Option Explicit

Function fc(a) As Boolean
Dim i As Long
For i = 2 To Int(a / 2)
If a Mod i = 0 Then
fc = False
Exit For
Else
fc = True
End If
Next i
End Function

Private Sub Form_Click()
Dim i, j, k, m, s, g, f As Integer
j = 0
k = 0