Imports System

Public Module Module1

    Public Sub Main()

        Dim LoopCounter as integer

        Dim number as integer

        Dim Modulus 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

        If Modulus = 0 Then

            NumFactors = NumFactors +1

            Console.WriteLine( LoopCounter)

        End If

    Next LoopCounter

    If NumFactors = 2 Then

        Console.WriteLine("Prime")

    Else

        Console.WriteLine("Not a prime factor")

    End If

    End Sub

End Module