Algoritmo que invierta numeros en VisualBasic.NET

[llAudioslavell]

Hola a todos ^^, habia dejado la programacion  y el estudio por razones personales pero estoy de regreso...
Quize comenzar con programas pequeños y encontre un ejercisio:
aplicacion que permita invertir  un numero, ejemplo: 123456...resultado: 654321
lo primero que pense es en divisiones para hallar la unidad decena etc, etc etc .. ..:

    Private Sub InvertirCifras()

        Dim Numero = Val(TextBox1.Text)
        Dim NuevoNumero

         If Numero.ToString.Length = 2 Then
            NuevoNumero = Math.Floor(Numero / 10)
            NuevoNumero = (Numero Mod 10) & NuevoNumero
            MsgBox(NuevoNumero)
 
        ElseIf Numero.ToString.Length = 3 Then
            NuevoNumero = Math.Floor(Numero / 100)
            NuevoNumero = ((Numero Mod 100) Mod 10) & (Math.Floor((Numero Mod 100) / 10)) & NuevoNumero
            MsgBox(NuevoNumero)
       
        ElseIf Numero.ToString.Length = 4 Then
            NuevoNumero = Math.Floor(Numero / 1000)
            NuevoNumero = (((Numero Mod 1000) Mod 100) Mod 10) & (Math.Floor(((Numero Mod 1000) Mod 100) / 10)) & (Math.Floor((Numero Mod 1000) / 100)) & NuevoNumero
            MsgBox(NuevoNumero)
   
        End If

    End Sub

este algoritmo no tiene problemas... solo que lo veo muy extenso y aun mas si se ingresa un numero con mas de 6 cifras... me preguntaba si alguien podria resolverlo pero de una mejor manera...... ?
Gracias......

[Radiux]

Streverse???

http://msdn.microsoft.com/es-es/library/e462ax87(v=vs.80).aspx

Como lo recibís en un textbox, da igual si es numero o texto. Si deseas especificamente numeros, pues ahi queda a tu inventiva crear una simple validacion o usar un masked textbox

[llAudioslavell]

Streverse???

http://msdn.microsoft.com/es-es/library/e462ax87(v=vs.80).aspx

Como lo recibís en un textbox, da igual si es numero o texto. Si deseas especificamente numeros, pues ahi queda a tu inventiva crear una simple validacion o usar un masked textbox

Ve xD...  no pense que existia  una funcion con esa capacidad....

[edu_guerr]

Sera algo asi?

Código: [Seleccionar]

Module Module1
    Sub Main()
        Dim numero As String
        Console.Write("Numero:")
        numero = Console.ReadLine()
        For i = numero.Length To 1 Step -1
            Console.Write(i)
        Next
        Console.ReadLine()
    End Sub
End Module

..O creando una funcion y pasandole el valor:

Código: [Seleccionar]

Module Module1
    Sub Main()
        darVuelta("123456")
    End Sub
    Private Sub darVuelta(ByVal valor As String)
        Console.Write("Numero:")
        For i = valor.Length To 1 Step -1
            Console.Write(i)
        Next
        Console.ReadLine()
    End Sub
End Module

o no se si no entendi bien.