Imports System

Public Module Module1

    Public Sub Main()

​

        dim Number, countfactors, loopcounter as integer

        console.WriteLine("Enter Number")

        Number = console.readline

        loopcounter = 1

​

        DO 

            if Number MOD loopcounter = 0 then 

            countfactors = countfactors + 1

        end if 

            loopcounter = loopcounter +1

        loop until loopcounter > number

    If countfactors = 2 then

        console.WriteLine("prime")

    else 

        console.WriteLine("not prime")

    end if

    End Sub

End Module

​

​