Escreva uma função VB.NET chamada Inverter() que recebe um número inteiro e retorna este mesmo número invertido - Exercícios Resolvidos de VB.NET

Function Inverter(numero As Integer) As Integer
  ' sua implementação aqui
End Function

Informe um número inteiro: 487
O valor invertido é: 784

Imports System

Module Program
  Sub Main(args As String())
    ' vamos pedir ao usuário que informe um número inteiro
    Console.Write("Informe um número inteiro: ")
    Dim numero As Integer = Int32.Parse(Console.ReadLine())

    ' fazer efetuar uma chamada à função inverter() e obter o valor invertido
    Dim invertido As Integer = Inverter(numero)

    ' e exibir o resultado
    Console.WriteLine("O valor invertido é: {0}", invertido)

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

  ' função que recebe um número inteiro e o devolve invertido
  Function Inverter(numero As Integer) As Integer
    Dim resultado As Integer = 0 ' guarda o resultado da inversão

    ' enquanto número for diferente de 0
    While (numero <> 0)
      ' obtém resto da divisão de número por 10
      Dim resto As Integer = numero Mod 10

      ' resultado recebe ele mesmo multiplicado por 10 mais o resto
      resultado = resultado * 10 + resto

      ' finalmente número recebe ele mesmo dividido por 10
      numero = numero \ 10
    End While

    Return resultado ' retorna o resultado
  End Function
End Module