Imports System

Public Module Module1

    Public Sub Main()

        Dim myNum As Integer

        Dim counter As Integer = 0  'This counter counts how many numbers between 1 and myNum give remainder of zero

        Console.Writeline("Please enter a number you wish to test for Prime:")

        myNum = Console.Readline()

        Console.WriteLine("Testing for primeness...please wait")

        for i as integer = 1 to myNum

            if myNum mod i = 0 then 

                counter = counter + 1

            end if

        next

​

        if counter = 2 then 

            Console.writeline ("Prime") 'since only 1 and myNum give zero remainder

        else

            Console.writeline ("Not Prime, counter={0}", counter) 'since more than two numbers divide myNum exactly

        end if  

​

    End Sub 

End Module

​