'==========================================================================
'
' VBScript:  AUTHOR: Ed Wilson , MS,  12/12/2003
'
' NAME: <SubRoutineScript.vbs>
'
' COMMENT: Key concepts are listed below:
'1. Use of a SubRoutine
'2.
'3. 
'==========================================================================
Option Explicit
Dim a, b, c
Dim num1, num2
a=1
b=2
c=3

num1 = a
num2 = b
compare

num1 = b
num2 = c
compare

num1 = a + b
num2 = c
compare

Sub compare
If num1 = num2 Then
WScript.Echo (num1 & " and " & num2 & " are equal")
Else
WScript.Echo(num1 & " and " & num2 & " are not equal")
End If
End Sub