Distrubute objects with specified space?

So I've got 2 pieces of code as follows:

Sub space_it_up_multi()
Dim sr As ShapeRange
Dim sr_counter As Long
Const space_dist As Double = 1.5

Set sr = ActiveSelectionRange

For sr_counter = sr.Count To 2 Step -1
sr(sr_counter - 1).BottomY = sr(sr_counter).TopY + space_dist
Next sr_counter
End Sub

____________________________________________________________________________

Sub space_it_right_multi()
Dim sr As ShapeRange
Dim sr_counter As Long
Const space_dist As Double = 1.5

Set sr = ActiveSelectionRange

For sr_counter = sr.Count To 2 Step -1
sr(sr_counter - 1).LeftX = sr(sr_counter).RightX + space_dist
Next sr_counter
End Sub

_____________________________________________________________________________

I want to code it for a userform (userform1) so that  the value of "Const space_dist As Double = 1.5" for "space_it_right_multi" and "space_it_up_multi" is derrived from "Textbox1" and "Textbox2" then executed by "CommandButton1"

Any help is greatly appreciated!!!