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()

        For LoopCounter = 1 To Number

            Modulus = Number MOD LoopCounter

            If Modulus = 0 Then         

                NumFactors = NumFactors + 1     

            End If

        Next LoopCounter

        If NumFactors = 2 Then      

            Console.WriteLine("PRIME")

        Else

            Console.WriteLine("NOT PRIME")

        End If

    End Sub

End Module