Values Before Calling the Sub:
intDefault = 1
intByRef = 1
intByVal = 1

Now Calling:
SampleSub(intDefault, intByRef, intByVal)

Values After Calling the Sub:
intDefault = 1
intByRef = 2
intByVal = 1

Click here to read about and download the source code.