Reverse Number

This algorithm reverse the given number. For example if given number is 123 then output number will be 321.

									Public Shared Function Reverse(num As Integer) As Integer
	Dim _reverse As Integer = 0

	While num <> 0
		_reverse *= 10
		_reverse += num Mod 10
		num \= 10
	End While

	Return _reverse
End Function

Example

									Dim rev = Reverse(1234)

Output