' Begin COPY POINT
'
 
' This VBScript function tests to see if a value passed is an even value.
' It returns the result of the value test in the name of the function itself = “IsEven”
' Initializes the value of “IsEven” to Boolean FALSE (Zero)
' This is intended to simplify the IF / END IF Block
' The MOD operator simply says Divide ValueIN by the value to the right of MOD (2) and capture the remainder.
' If the remainder is Zero we can assume an even number - True.
'-----------------------------------------------------------------------------------

Function IsEven( ValueIN)
	IsEven = FALSE
	If (ValueIN Mod 2) = 0 Then
		IsEven = TRUE
	End If
End Function

'-----------------------------------------------------------------------------------
'----------------- MAIN ---------------------------------------------------
' Main program to call “IsEven” It’s only job is to do three things in one statement:
' 1. Put up a message box, after
' 2. Passing a value to “IsEven”, and
' 3. Capturing the result of the call to the “IsEven” function
'
msgbox IsEven (23)  '' <- Change this value to experiment
'
'------------------ END MAIN --------------------------------------------------

' END COPY POINT