How to find Leap year by VBScripting code

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

//
dim xyear
xyear=inputbox ("Enter year")
if xyear mod 4=0 then
msgbox "This is a leap year"
else
msgbox "This is NOT leap year"

end if

//

Download Code -  Click Here