This example creates a balloon with a heading, text, and three region choices, and then displays it.
With Assistant.NewBalloon
.Heading = "Regional Sales Data"
.Text = "Select one or more regions"
For i = 1 To 3
.CheckBoxes(i).Text = "Region " & i
Next
.Show
End With