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

Informe um número decimal: 38
A representação binária é 100110

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

    binario = n_decimal & binario ' insere o dígito 1 restante
    Console.WriteLine("A representação binária é " & binario)

    Console.WriteLine(vbCrLf & vbCrLf & "Pressione qualquer tecla para sair...")
    ' pausa o programa
    Console.ReadKey()
  End Sub

End Module