Imports System

Public Module Module1

    Public Sub Main()

        Dim Number, Modulus, LoopCounter As Integer

        Dim NumFactors As Integer = 0

        Console.Writeline("Enter number to test")

        Number = Console.Readline()

        LoopCounter = 1

        Do

            Modulus =Number Mod LoopCounter

            IF Modulus = 0 Then

                NumFactors = NumFactors + 1

            End If

            LoopCounter = LoopCounter + 1

        Loop Until LoopCounter > Number

        If NumFactors = 2

            Console.Writeline("PRIME")

        Else

            Console.Writeline("NOT PRIME")

        End If

​

    End Sub

End Module