This example creates a balloon containing three choices. The variable x is set to the return value of the Show method, which will be 1, 2 or 3, depending on the label the user clicks. In the example, a message box displays the value of the variable x, but you can pass the value to another procedure or you can use the value in a Select Case statement.
Set b = Assistant.NewBalloon
With b
.Heading = "This is my heading"
.Text = "Select one of these things:"
.Labels(1).Text = "Choice One"
.Labels(2).Text = "Choice Two"
.Labels(3).Text = "Choice Three"
x = .Show
End With
MsgBox x