Imports System

​

Public Module Module1

​

    Public Sub Main()

        Dim Number As Integer

        Dim Modulus As Integer

        Dim Factors As String = ""

        Do

            Console.WriteLine("Enter Number")

            Number = Console.ReadLine()

        Loop Until Number >= 1 And Number <= 999

​

        For LoopCounter = 1 To Number

            Modulus = Number Mod LoopCounter

            If Modulus = 0 Then

                Console.WriteLine(Factors)

                Factors = Factors & "," & Loopcounter

            End If

​

              Next

    If Factors = 2 then

                Console.Writeline("num is prime fam")

        End if

    End Sub

End Module

​