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 - Finding Square of a number
x=inputbox("Enter a number to know its square!")
Msgbox "Square is " & x*x