Looping problem

[bitong]

Module Program
Sub Main()
Dim x, y, z as integer
Console.WriteLine("Enter a number: ")
y = console.ReadLine()
x = y
Do While x>0
z = x Mod 10
x=x\10
Loop
Console.Write("Press any key to continue . . . ")
Console.Readline()
End Sub
End Module

* Input a number then output it in a reverse order
Enter a number: 123456789
Reverse Order: 987654321

But the problem is that This program can only hold up to 9-digit..what i want is that it doesn't matter how long the user entered a number...I don't have to use string in order determine large number..pls help

 

[Carlos++]

use another data type.
change integer for another type. uint64 supports more digits than integer.