Changing Dimensions using Form/Pop up

I am trying to write a macrothatwill change 4 dimensions on a part.  I would like it toask mefor what I want the dimensions to be by using the standarddimensiontext box that pops up or using a created form.  Cananyone giveme some insight on this.   Below is the macrothat I haveso far.

Sub main()Set swApp = Application.SldWorksSet Part=swApp.ActiveDocSet SelMgr=Part.SelectionManagerPart.Parameter("Flange CarryingDepth@FlangeCarrying Sketch").SystemValue = 0.0127boolstatus=Part.EditRebuild3Part.ClearSelection2 TrueEnd Sub
SolidworksApi macros