Contour Macro at Current Scale

I am trying to run a macro for insets at specified sizes, which in my line of work happens often. Inset from backer 1", inset from face panel,.5" and inset from face vinyl border. .25". I have recorded the macro which i will then create custom buttons for on the task bar. But how do I get the macro to run at the current scale set in the document instead of 1:1? Thanks in advance, still cutting my teeth on VBA....

Code..

Sub Contour_One_Inch()
' Contour_One_Inch_Inside
Dim srSelection As ShapeRange
Set srSelection = ActiveSelectionRange
Dim eff1 As Effect
Set eff1 = srSelection(1).CreateContour(0, 1#, 1, 0, CreateRGBColor(0, 0, 0), CreateSpotColor("afb87675-254f-4ecb-8904-04c7eba19c23", 906, 25), CreateRGBColor(0, 0, 0), 0, 0, 2, 4, 15#)
eff1.Contour.ContourGroup.AddToSelection
ActiveSelection.Separate

End Sub

Sub Contour_Half_Inch()
' Contour_Half_Inch_Inside
Dim srSelection As ShapeRange
Set srSelection = ActiveSelectionRange
Dim eff1 As Effect
Set eff1 = srSelection(1).CreateContour(0, 0.5, 1, 0, CreateRGBColor(0, 0, 0), CreateSpotColor("afb87675-254f-4ecb-8904-04c7eba19c23", 906, 25), CreateRGBColor(0, 0, 0), 0, 0, 2, 4, 15#)
eff1.Contour.ContourGroup.AddToSelection
ActiveSelection.Separate

End Sub
Sub Contour_Quarter_Inch()
' Contour_Quarter_Inch_Inside
Dim srSelection As ShapeRange
Set srSelection = ActiveSelectionRange
Dim eff1 As Effect
Set eff1 = srSelection(1).CreateContour(0, 0.25, 1, 0, CreateRGBColor(0, 0, 0), CreateSpotColor("afb87675-254f-4ecb-8904-04c7eba19c23", 906, 25), CreateRGBColor(0, 0, 0), 0, 0, 2, 4, 15#)
eff1.Contour.ContourGroup.AddToSelection
ActiveSelection.Separate

End Sub