Invertir un número

Module Module1
    Sub Main()
        Dim numero As Long = 987654321
        Dim numero_invertido As Integer = 0
        While numero > 0
            numero_invertido = (numero_invertido * 10) + (numero Mod 10)
            numero = Math.Truncate(numero / 10)
        End While
        Console.WriteLine(numero_invertido)
        Console.ReadKey()
    End Sub
End Module