Private Sub Form_Load()
n = 13
For i = 2 To Int(Sqr(n))
If n Mod i = 0 Then GoTo 1
Next i
MsgBox "prime"
GoTo 2
1 MsgBox "not prime"
2 End Sub