visual-studio-2010 - ループの問題。素数のリスト

Question

私はすべてが非常に間違っていることを知っています。私がやろうとしているのは、指定された番号までの素数のリストを作成することです。簡単に説明してみてください。私はこれが初めてです。助けていただければ幸いです。

Option Explicit On
Option Strict On

'Author: Murray Spears
'Date: October 5th 2012

'Creating a Program that will ask the user for a number. 
'The program will then generate prime numbers up to and including the number entered by the user.

Imports System

Module PrimeNumbers

    Sub Main()

        Dim Number As Integer
        Dim One As Integer = 1
        Dim Prime As Boolean


        'Ask the user for their chosen number.
        Console.Writeline("Choose a number:")
        Number = Convert.ToInt32(Console.Readline())
        ' We have to let the program know that we only want numbers that are divisible by one and themselves, up to the entered value.

        Do While Number <= Number
        Loop

        Do While Number / One = Number
        Loop

        Do While Number / Prime = Number
        Loop

        Console.Out.Writeline("Here are the prime numbers:")
        Console.Out.Writeline(Number)

    End Sub

End Module