Get text? (Solved)

Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic


       
How can I get the text entered into ID_EDIT_TEXT?   I would lik to know how to get the text when a command bar button is clicked and how to get the text when a button on a form is clicked. 
 

Dim EditBar As CommandBar
    Set EditBar = CommandBars.Add("Edit", xtpBarTop)
    With EditBar.Controls
        .Add xtpControlEdit, ID_EDIT_TEXT, "Enter distance"
        Set control = .Add(xtpControlButton, ID_EDIT_OK, "OK")
    End With