Private Sub Form_Click()
Dim n As Integer, i As Integer, j As Integer, m As Integer
For n = 11 To 99 Step 2
For i = 2 To n - 1
If n Mod i = 0 Then Exit For
Next i
If n = i Then
Print n;
j = j + 1
If j > 9 Then j = 0: Print
End If
Next n
End Sub