Try this change:
Code "G0 Z" & Zjob+(-1 * DEPTH) + Clearance
Code "G01 Z" & Zjob+(-1 * DEPTH) & " F" & FeedPlunge
In adition you will need to pass the value of the variables to the sub: (two places each; note that "Clearance" was missed too)
Call Finish_ClimbMill(Xpos, Ypos, length, Width, DEPTH, RadTool, finishamount, FeedPlunge, FeedRough, Feedfinish, ZJob, Clearance)
Sub Finish_ClimbMill(Xpos, Ypos, length, Width, DEPTH, RadTool, finishamount, FeedPlunge, FeedRough, Feedfinish, ZJob, Clearance)
That should do it.
al