VBScript Code - Sum of digits of a five digit number

Write the below code in a notepad and save it as a .vbs file. Either run it from command prompt or run it by double-clicking on it.

VBScript Code - Calculating sum of digits of a five digit number

x=inputbox("Enter five digit number: ")

a=int(x / 10000)
b=x mod 10000

c=int(b / 1000)
d=b mod 1000

e=int(d / 100)
f=d mod 100

g=int(f / 10)
h=f mod 10

msgbox "Sum is : " & a + c + e + g + h