textobj string to numeric value

I am giving the user the option to either manually enter a distance value (pipeline length), or to select the distance value on the drawing.....I have code the manual side no prob, but the selection side is giving me a headache....I am not even sure I can code this out......here is the code:

ThisDrawing.Utility.GetEntity DistanceText, ptPicked, "Please select the distance to the deflection point:"
DistText = DistanceText.TextString

Is there any way to change this string into its numerical equivalent? Maybe I cant see the forest through the trees as I am a bit of a vba newb....

 

I think you want to use ThisDrawing.Utility.GetPoint dblFstPnt, "Please select deflection point: "
Thisdrawing.Utility.GetPoint dblSecPnt, "Please select the distance from deflection point: "

Using Getentity will give you the object you select but not the distance. If you still think that it's the best for your intentions then just use: DisText = cDbl(DistnceText.Textstring)

 

thank you I figured it out....and that (CDbl) is the way to do it....