Dim Number, Modulus As Integer
Dim NumFactors As Integer = 0
Console.WriteLine("Enter number to test")
Number = Console.ReadLine()
For LoopCounter = 1 To Number
Modulus = Number Mod LoopCounter
NumFactors = NumFactors + 1
Console.WriteLine("PRIME")
Console.WriteLine("NOT PRIME")