Matemáticamente...
Con Substring:
Código (vbnet) [Seleccionar]
Do
Console.WriteLine("Escribe un número:")
Dim numero As Integer = Console.ReadLine()
Dim numeroInvertido As String = Nothing
Dim y As Integer
While numero > 0
y = numero Mod 10
numero \= 10
numeroInvertido &= y
End While
Console.WriteLine(numeroInvertido)
Console.WriteLine()
Loop
Con Substring:
Código (vbnet) [Seleccionar]
Do
Console.WriteLine("Escribe un número:")
Dim numero As String = Console.ReadLine()
Dim numeroInvertido As String = Nothing
For I As Integer = 1 To numero.Length
numeroInvertido += numero.Substring(numero.Length - I, 1)
Next
Console.WriteLine(numeroInvertido)
Console.WriteLine()
Loop