Dim LoopCounter as integer
Dim NumFactors as integer
Console.WriteLine("Please enter a number")
Number= Console.ReadLine()
COnsole.WriteLine("The factors of " & number & " are:")
For LoopCounter = 1 to number
Modulus = number MOD LoopCounter
NumFactors = NumFactors +1
Console.WriteLine( LoopCounter)
Console.WriteLine("Prime")
Console.WriteLine("Not a prime factor")