Como converter decimal em binário em VB.NET usando o laço while - Desafio de Programação Resolvido em VB.NET

Imports System

Module Program
  ' função principal do programa VB.NET
  Sub Main(args As String())
    ' vamos ler o número decimal
    Console.Write("Informe um número decimal: ")
    Dim n_decimal As Integer = Int32.Parse(Console.ReadLine())
    Dim decimal_temp As Integer = n_decimal ' para mostrar o resultado no final
    Dim binario As String = "" ' vai guardar o resultado
    Dim temp As Integer ' variável auxiliar

    ' laço while repetirá enquanto decimal for maior ou igual a 2
    While n_decimal >= 2
      temp = n_decimal Mod 2
      binario = temp & binario
      n_decimal = n_decimal \ 2
    End While