VBScript Define and Call Subroutines

Define a Subroutine
Sub subroutineName (passedArg1, passedArg2,....)
Dim .....
Set .....
End Sub

Call a Subroutine
Call subroutineName (inputArg1, inputArg2)