Imports System

Public Module Module1

    Public Sub Main()

    Dim Counter As Integer = 0

        For Number = 1 to 100

        Counter = 0

        For i = 1 to Number

        If  Number MOD i = 0 Then

            Counter=Counter+1

        End If 

    Next

    If Counter = 2 Then

            Console.WriteLine(Number)

    End If  

​

    Next

    End Sub

End Module