Invertire le cifre di un numero intero

Se si intende invertire le cifre di un numero intero, ossia partendo ad esempio dal numero 12345 ottenere il numero 54321, si può adottare il seguente codice, il quale considera il numero originario come somma di cifre moltiplicate per potenze decrescenti di 10.
Il dato restituito sarà di tipo numerico, quindi non di tipo Stringa.

Public Sub Main()
 
  Dim numero, numero_invertito As Integer
 
  numero = 123456789
  
  While numero > 0
    numero_invertito *= 10
    numero_invertito += numero Mod 10
    numero /= 10
  Wend
  
  Print "Numero invertito: \e[31m"; numero_invertito; "\e[0m\n"
  
End