Introduction - If you have any usage issues, please Google them yourself
Private Sub Form_Click()
Dim x, y, n As Integer
For x = 3 To 100
For y = 2 To x- 1
If x Mod y = 0 Then
Exit For
ElseIf y = x- 1 Then
If n Mod 10 = 0 Then Print
Form1.Print x " "
n = n+ 1
End If
Next y
Next x
End Sub