Display reverse order from 4 digits number by vbscripting

Hello Friends,
in this, i am giving you code of VBScripting code for finding Reverse order from giving 4 digits numbers.
For using this code, Copy code from bellow attached then paste in Notepad and save it with extension *.vbs*.

//
dim num,rev
num=inputbox ("Enter a number")
if len(num)=4 then
rev=rev*10+num mod 10
num=num/10
num=left(num,3)
rev=rev*10+num mod 10
num=num/10
num=left(num,2)
rev=rev*10+num mod 10
num=num/10
num=left(num,1)
rev=rev*10+num mod 10
msgbox "Reverse order of the number is " &rev
else
msgbox "number, you entered is not 4 digit number"

end if

//

Download -  Click Here