' This code contains deliberate mistakes in 
' formatting and spelling to demonstrate
' the power of Polisher.

Attribute VB_Name = "PrimeNumber"
Dim i As Integer

Dim j As Integer, prime As Boolean
Dim PrimeList As String
Const SEPARATOR = ", "

Sub Main()
   For i = 1 To 99
   prime = True
For j = i - 1 To 2 Step -1
      If i Mod j = 0 Then
         prime = False
         End If
      Next j
   If Not prime Then
      
   
   MsgBox i & " is not a prime number"
   Else
   If i = 1 Then
   PrimeList = PrimeList & i
Else
PrimeList = PrimeList & SEPARATOR & i
 End If
 End If
Next i
MsgBox "Prime numbrs calculated for 1 to 99", 48

MsgBox PrimeList


MsgBox "The Prime Number Generator is brought to you by The Number Guys." & vbCrLf & "Any comments or questions should be directed to our Maintenence Department." & vbCrLf & "If you know of any prime numbers we omited, please comtact us immediately." & vbCrLf & "Personal calculators are availible from Sales."






End Sub