Balloon Assistant
 

Hello,
In my visual basic macro, I create a balloon
(Assistant) that presently has two buttons; the first
button asks the user to select a page number, and the
second button returns the user back to the main excel
program.
I need help to add an inputbox space to my Balloon. I
want the user to type in the page number in the inputbox
space and then press the first button.
See my balloon code below.
Can someone please help me. Thanks much.

Christy

Sub BalloonPage1()
Selection.HomeKey Unit:=wdStory
Set bln = Assistant.NewBalloon
With bln
.Heading = "Select Topic"
.Labels(1).Text = "Select Page Number of Topic first
and then press this button. "
.Labels(2).Text = "Return to DietBook"
.BalloonType = msoBalloonTypeButtons
.Button = msoButtonSetNone
.Mode = msoModeModeless
.Callback = "GotoPage1"
.Show
End With
End Sub