Como calcular e exibir os 50 primeiros números primos em VB.NET - Desafio de Programação Resolvido em VB.NET

Imports System

Module Program
  ' função principal do programa VB.NET
  Sub Main(args As String())
    Dim quantidade As Integer = 50 ' quantidade de números primos
    Dim contador As Integer = 0 ' quantidade de números primos encontrados
    Dim numero As Integer = 0 ' inteiro inicial             

    ' Lembre-se! O número 1 não é primo
    Console.WriteLine(quantidade & " primeiros numeros primos:" & vbCrLf)

    ' laço while será executado até encontrar os 50 primeiros números primos 
    While contador < quantidade
      Dim primo As Boolean = True

      ' se o valor de i for 7, a variável j do laço contará
      ' de 2 até 7 / 2 (divisão inteira), ou seja, 3. Se o 
      ' módulo de 7 por qualquer um dos valores neste intervalo 
      ' for igual a 0, então o número não é primo
      For j As Integer = 2 To (numero / 2)
        If numero Mod j = 0 Then