Dim LoopCounter As Integer
Dim NumFactors As Integer
Console.WriteLine("Please enter a number")
Number = Console.ReadLine()
For LoopCounter = 1 To Number
Modulus = Number MOD LoopCounter
NumFactors = NumFactors + 1
Console.WriteLine("PRIME")
Console.WriteLine("NOT PRIME")