Ler um número de três dígitos, separá-lo e invertê-lo, escrevendo o número lido e sua forma inversa - Exercícios Resolvidos de VB.NET

Informe um valor inteiro de três dígitos: 753
O valor original é: 753
O valor invertido é: 357

Imports System

Module Program
  Sub Main(args As String())
    ' vamos solicitar ao usuário que informe um valor inteiro
    ' na faixa 100 a 999 (incluindo)
    Console.Write("Informe um número binário: ")
    ' vamos ler o valor informado
    Dim valor As Integer = Integer.Parse(Console.ReadLine())

    ' vamos verificar se o valor está na faixa permitida
    If (valor < 100 Or valor > 999) Then
      Console.WriteLine(vbCrLf & "Valor fora da faixa permitida " & vbCrLf)
      Environment.Exit(0)
    End If

    ' vamos criar uma variável temporária para manter intacto o 
    ' valor lido
    Dim temp As Integer = valor
    Dim inverso As Integer = 0 ' guardará o valor invertido

    ' vamos inverter o valor agora
    While (temp <> 0)
      inverso = (inverso * 10) + (temp Mod 10)
      temp = temp / 10
    End While

    ' vamos mostrar o resultado
    Console.WriteLine("O valor original é: " & valor)
    Console.WriteLine("O valor invertido é: " & inverso)

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