Создал менюшку как контекстную
код ниже

Sub zero()
Dim com As CommandBar
Set com = CommandBars.Item("boo")
Do While com.Controls.Count <> 0
com.Controls.Item(1).Delete
Loop
Dim btn As CommandBarButton, edt As CommandBarControl
Set btn = com.Controls.Add(msoControlButton)

btn.Caption = "all items"
btn.FaceId = 123
btn.OnAction = "doRedistributeAll"
Set edt = com.Controls.Add(msoControlEdit)
edt.Caption = "enter items count"
edt.OnAction = "doRedistributeCount"
End Sub

Sub doRedistributeAll()
MsgBox "all"
End Sub
Sub doRedistributeCount()
MsgBox "count "
End Sub

вопрос как мне узнать какое значение пользователь ввел в поле msoControlEdit